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U0 ABSTRACT 

this dlagnof tic will functionally ttst the hardware options on 
tht I1AJ& terminal, 

up to 48 tern^inalf f including the console device? can be tested 
at a timt • All terminals under test i^ust be interfaced thru a OlU 
type interfacet 

control of this diagnostic may be thru a switch register? or via 
interactive console terminal commands , 



1 1 1 Functional Description 

The program will first determine it the system has a hardware 
switch register • if none available a software switch register at loc 
176 Will be assigned. 

The program will then determine what device interfaces are on the 
system, at the standard DLli»A|B,c,D,fc: address and the interrupt 
vector of each interface present. This information will then be 
stored in a table. 

The program wm then aSk the operator if he/ihe wants to use 
console control, if the response is »no« the program will halt and 
wait fOr the operator to enter control information thru the switch 
register. 

Note I If no hardware switch register is present control is forced 
to console controit 

If console control is selected a menu of available command! win 

be printed on the console terminal^ and the program will wait for 
commands via the consoles 



2^0 mQDiHKmHts 

2,1 EOUIPMKNT 

This diagnostic was written to run on all models of the PdP-U 
computer' including the LSX-i 1 , one to f ourty eight LA36 terminals? 
Connected thru a single line asyncronous interface (dlu*a thru 
OLl OLVU), may be tested, 8K of memory is required, 

A hardware switch register is supported, but not required. 
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2^2 OPTIONS 

Th® following options ar© tested bV this diagnostics 

hSCii/kPh character seti 

Selectivt Addressing Option, 

Auto-Answerback Option, 

Top«of *f orm Option. 

Horizontal & Vertical Tab Option, 



2,3 RELATED PROGPAMS 

Although some error checking is done, this diagnostic does not 
functionally test the basic LAi6 terminal? nor the terminals 
interface. 

Therefore the basic hkit terminal diagnostic^ mdec-1 1»DZLac-»# 
and the DLn«#/DLV»l 1 interface test should be sucessf ully run prior 
to this diagnostic. Also any other applicable processor/memory testst 



3,0 LOADING & INITIALIZATION 

This diagnostic may be loaded using the standard procedures for 

paper tape? or via xxdp media. This diagnostic will not run in 

Chained mode because manual intervention is required. The absolute 
loader area is preserved. 

This diagnostic self sizes the system as far as the interfaces? 
and their interrupt vectors. The only operator modifications to be 
made arei 

1, the location 'TImeh' which is a CPU dependent time contstant, 
see listing of dlla^m Routine, 

TIMERI ,wORP 554 ;5CT FOR 11/35 • 11/40 



|5E.T 


TO 202 IF 


11/03 








251 


U/05 


- U/10 




» 

f 


314 


11/15 


- 1 l/2feJ 




1 


2127 


11/45 


BIPOLAR 


- 11/55 


1 


1237 


U/45 


• M05 « 


11/70 


f 


755 


U/45 







OeLAYTl ,v^0HD fDELAY TIME BUFFER 

2t any of the preset device address to accomodate a non-standard 

interface address? (See Sect 7,0 for details) 

3. location 'width' it other than 132 COL PAPER is being used, 
(see section 4,3) , (common for all terminals) 

The initial starting address is 200(8j^ and all restarts at 1372, 



It^ CONTROL & TEST SELECTJON 

Tht diagnostic wlXi «gK (via tht console) if console control Is 
dtsirtcSt Answer ^'X^ if you went to use interactive commands^ 
otherwise type 'n' for switch register control. 

If 'Y* is typed a menu of available coirrrands Is printed on the 
consolei and the program win wait for command Input, If •N' is typed 
the program will print a listing of the line (interface) tablet then 
halt for the operator to s@t the switches to the desired parameterSf 



4tl SWITCH REGISTER CONTROL 



whtn SWITCH REGISTEH Coi^TROL is Selected tht program will halts 
set t^t switehts to tn@ aesirtd modtf then press continues The 
prograw« will checic tht entry and If a specific test is to be runi or a 
specific line is to bt tested the program will halt agaiht Enter the 
desired line/test data in the switches^ the press continue* 

TO change parameters the test must be restarted at loc 1372, 

hhh of the switch functions art also available under console 



tnodt^ 


(See 


sects 4 


92,4,1), 


SWITCH 

rxHsi: 


HEGISTEP BIT DEFINITIONS 
WORD MODE SELECTION 


81T15 


mi 

B0 


(UP) 
(DOWN) 


HALT ON ERROR 
CONTINUE AFTER REPORT 


BITU 


mi 
mid 


(UP) 
(DOWN) 


LOOP AFTER ERROR IS DETECTED 
DON'T LOOP 


©ITU 


80 


(UP) 
(DOWN) 


INHIBIT ERROR REPORTS 
PRINT ERROR REPORTS 


SlTli 


mi 

®0 


(UP) 
(DOWN) 


PRINT INTERFACE TABLE 
DON'T PRINT TABLE 


BlTli 


»1 


(UP) 
(DOWN) 


INHIBIT ITERATIONS 
NORMAL RUN 


BiTb 


■ i 


(UP) 
(DOWN) 


RUN ALL TESTS SEQUENCE 
RUN SELECTED TEST ONLY 


BITS 


ei 

S0 


CUP) 
(DOWN) 


RUN ALL AVAILABLE LINES 
RUN SINGLE LINE ONLY 


SECOND 


WORD 


LINE AND 


TEST NO. 



BIT15 • BIT8 SELECTED LINE NUMBER ((«0«57) 

B1T7 « BIT0 SELECTED TEST NUNBER ( 0«5 ) 



4,2 CONSOLE CONTROL 

When console control is selected a menu of available commands is 
typed on the console terminal , The program will wait for commands to 

be entered thru the Keyboard, 

Enter one command Per line# followed by a carriage return. To 
terminate command input and start execution type an ALTmode or Escape, 

TO regain control once execution has begun type a CTL-C, The 
program will respond with 'HEADY' , you can now enter the desired 



commands just as in startup , 



4^3 COMMANUS 

There two types of conimands available* interactive commandsf 
and static cofuroands* 

ALL static commands can only be entered while in "command Mode" # 
that is during startup after 'READjf ' is printed on the console? or 
after the operator has invoked command mode by typing a CTl»c and the 
program has printed 'READY', 

interactive commands can be entered at any time? and are 
essentially the same as the switch register bits 15,14,139 

The available Commands ares 

S (STATIC) Single Line Nodet Test a single 

devicet Line 00 is default. Use add command 
to select the desired line, 

M (STATIC) Multi Line Mode. Test all lines 

present and not deselectedt 

Q (STATIC) sequence tnru all tests? starting 

with test feJe 

Hn (STATIC) Hun test N, 

Dn (STATIC) Leielect or nrop trom testing 

interface line (see T command) 

An (STATIC) Add line Clear out the 

errOr count for line and reselect the 
line for testing, m single line "^ode 
sets N as current line to test, 

T (STATIC) Type out a listing of the interface lines 

present on the system, the vector address at 
which the device interrupts* and weather or 
not the line is selected, 

m (STATIC) changes location "width* to used 

to control output of terminal tests , fe,nter n 
as an octal number 32 to 204, (132 decimal ) 

CTL«L (interactive) Loop on error, if an error 

is detected the program will start loopinct 
on the test section which caused the error? 
and continue to loop until a Klear 
command is Issued, 

in command mode type an l. 
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CTIj*'H (interaclvc) Halt on errore will cause the 
program to h®lt aft@r the error message Is 
printed, (assumeing error printouts are enabled) , 
In command mode type or Hp 

CTL»K (interactive) Klear - resets both the H and l 
commands (Don't halti Don't loop) , 
In command mode type a C, 

CTL»N (interactive) no Error reportst inhibits 
the printing ot normal error messages # 
m command mode type an N« 

CTL*P (interactive) Print error reports. ALL report 
messages will be printed on the consoles 
m command mode type a P« 

CTL»G (interactive) will cause the program pcflags 
to be displayed on the console for 
trouble shooting purposes^ See listing for 

bit definitionit 

mC EKit command mode it start execution of 
the diagnostic test (s) • 

CTL^C Returns test to command mode. 

All operations in progress stop. 



4,4 EXAMPLES & HINTS 

Test numbers thru 5 may be selected to run individually on all# 

or any terminal® 

ALL tests can be run sequentially on all or any terminal. 

Tests can be run sequentially on a teminal# but there is little 
chance that any terminal will have more than one or two of these 
Options installed, sequencing all tests will probably result in 
numerous errors from trying to test non"exlstant options . 

If a line gets more than 16 errors it will be deselected by the 
program and a message will be printed on the console* if the line is 
the only one being tested It will automatically be re^selected. 

Example 1, the commands to select test #4 to be run on all lines, 
READY 

R04(CR) • Hun test 4 
M(CH) • Multi line mode 
wJ2w(CR) • set paper width to i2fd 
$ « ESC • echoed as s 



Exatrpxt 2, the commands to run all tests on line 
nof 06# with Halt on error set • 



READY 

Q(CH) • Sequence tests 

S(CH} • single line mode, 

A0ecCH) » Add line #06 

H(CH) • Halt on error 

$ « ESC « echoed as $ , 

EXAMPLE 3, How do I run tests on 10 out of 12 terminals. 



first you must be in command mode, if a test is running type 
CTL*C» The progr«n\ will respond with "f?eady"t now type D nn 
(cr) to deselect line number nnt Repeat for each additional 
line to be dropped from the tests, now select your test other 
parameters as in Example 1 , 

EXAMPLE 4, How do 1 restart a device which hai been deselected? 

in command mode type Ann (cr) where nn is the line number of 
the line to be added, 

EXAMPLE 5, HOW do X loop On error. 

If the test is running type a CTL-L, when an error is 
detected the program will start to loop on the test or subtest 
and continue to loop until a CTh'^K or CTt"C command is issued. 

If in command mode type L (CR) , 

EXAMPLE 6, Can I set the ^width' constant different for each 
terminal? 

The constant 'width' li the same tor all terminals^ although 
it may be changed any time you are in command mode. 



S,0 SCOPE or TESTS, 

This diagnostic will functionally test the following hardware options 
of the LAi6, 

t , Secondary character set option aPL/aSCU character set 
selection 

2, Selective addressing option 

3, Auto«answer back option 

4, TOP Of forms option 



5t Horizontal and Vertical tabluatlon option. 

Tht diagnostic will do cursory testing of the basic Interf acei and 
basic Ij1^36 logic* It is assumed that the bailc intertace^ CPU/memory^ 
and bA36 tests have been run successfully. 

Due to the nature of the hardware under test most error checking win 
be by visual inspection of the terminal output by the operator. 

Description Of Tests 



5,1 Ttst Secondary Character Set, 

Thli test Is an output only testf no terminal feed back Is received. 

The ttit prints on each terminal alternating llnei Of ASCII character 
set; and hPh character set. 

Output Of characters per line win consist of char codes 40 thru 176 
unless the paper width limit ig reached first. 

Output format! 

PRINAPX«*«®CA5CU CHARACTER SET) 
SECONDAR¥»«CAPL CHARACTEH SET) 

This output Is controlled by the "width" of the papers See ^ command 
description, 



5,2 Test J Selective Addressing option 

This test will alternately send out a select code# followed by It's 
AsCH Equlvelenti for all possible select codes (20 thru t77)^ 

This test will also desiect all terminals and try to output a "this 
should not print** message, "All terminals should be off" 

This test will also try to print "this should not print" messages 

after transmitting ''Hui^ select character sequencesi and no select 
codes seQuenctSf 

valid terminal output should bet select Recognized s /NNCGroup select 
code) /NNdndlvldual Select Code)/ 

v^here nn represents the select codes recognised by this terf^lnal, if 
the group select code and individual select codes are set to the same 
thing them only one /nh/ should appear, 

More than two /nn/ codes printed indicates a logic failure in the 
decoder section of the option, or possibly Interface to terminal line 
problems. 



hn^ Of the «thls shouid not print" mtssag® that appear on tht terminal 
Indlcttt d failure ot tht itltctlon loglca 



§®3 Tttt 2 Auto Aniwer Bacfc option 
This t®it is divided into six §ubttstsi 
Subtest «1 

The first subtest is actually a sizing routine. The terminal should 

respond to its unique selection code with an answerback when p011ed« 
This test has no way of knowing what the answer back isi nor any way 
Of *pre»8electing* Its unique selection code* Thtretore subtest •! 
will t?y all legal selection codes to see It it can cause an answer 
back to be transinitted« if one Is received the progrem will store the 
select code associated with the response m the lint table for furture 
testing. 

Subtest «2 

Will gee if any answer back has been received? and check Its lengths 
the massacre should not exceed 20 (10) characterst Subtest 2 will 
print the ASCII message on the terminal^ and an octal representation 
Of the characters Cto verify non prihtables are being transmitted 
correctly^ and as a trouble shooting aid if bad data is being gent out 
from the switches) « 

Subtest »l 

Will read the answer back ten times to verify reliability of the data# 
and linest 

Subtest *4 

Will try to cause transmission of the answer back In response to a 
broadcast code. 

Single Line ^^ode • Subtests 5# and 6, 

Subtest -5 

The test Will regugst the operator to press the *her®«is*' key? then 
check for answerback^ 

Subtest ®6 

The test will request the operator to type ^C^L^E^? then check for 

answer back. 

The Operator trust verity that the message echoed back to the terf^lnal 
Is correct # by corrpar ing it to the data switch configuration. 



# i 
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T«st 3 Top Of Forms option 

This ttst Is divided Into two subtests, one for muXtl line mode, the 
other tor single line mode. Operator intervention will be required 
for the single line test « 

1 • B^uiti line mode. 

This subtest will assume a standard form of 11 inches being 
used. 

The test will Issue a form feed, then print a line of dashes. 
This FF/dashes Is repeated 3 times. 

The operator snouid verify correct operation by checking tor 
a line of dashes at the same place on each page, 

2, in single line mode, This test will require the operator to 
set the forms length switch to the value requested. The test 
will then do three form feeds at each length setting. 



5,5 Test 4 Horizontal Tab option 

This test will adjust It's output to conform to the paper width. 
Change location "width" to the appropriate value before starting test, 
(preset to 132 col, ) Notei see w command description, 

The test will print a reference line for visual verification. The 
line will look like thlst • • , , .v, , , , ,v, , • , ,V, , , , ,V, . , , • 

Tabs will then be set corresponding to the location of each v, Tne 

test will then Issue a tab and print an x, tab then x etc until the 

line Is complete. Three lines of x's will be printed. All x's 

printed s^^uld be aligned with the reference line V'5. 

This will be repeated for various (7) values of tab spacing, 

example of output 

X X X X X 

X X X X X 

X X X X X 



X X X 

X XX 
X X X 



I 



SgS Ttst S Vertical Tab option 



This ttst is divided into two subtests, one for multi line mode* the 
other for single line mode. The single line mode test requires 
operator intervention. 

miti line mode subtest 

Will set tabs at intervals of l linet 2 lines# I lines etct up to U 
lines. The test will then issue a vert, tab then print a line of 
dashes* then repeat until 1 full page has been done. Three pages of 
output ere run for i pass of test. 

Single line mode testing involves the operator to set up the forms 
control to H inch fOrmsi and then proceeds with the same subtest as 
for multi line mode. 



a,0 ERROR KtPORTlNG 

There wm be four basic sources of error messages, First the system 
siser^ second the command decoder # and third the diagnostic tests* and 
the I/O drivers. 



6,1 Diagnostic Tests 

All test error messages will be 2 lines of outputt A standard format 
line* shown below* and a descriptive message telling what went wrong, 

Stdg rmt,| #ERHOH XXY TEST YY LINE Zl 

Where xxx » the error number locai to the current test, 

YY ^ the current test number, 

ZZ « the line under tests 

an example of a descriptive message i 

,N0 ANSWEHBACK mEASSAGE RECEIVED 

AS each errOr is handled a routine will update an errOr count for the 
failing line, if 16 errors are accumulated on a line, that line will 
be "deselected" and the following message will be displayed, 

EXCESSIVE ERRORS , , LINE XX DROPPED, 

If the line under test is the only line being tested the program will 
automatically re^select the line* zero the count* and continue testing 
after typing the f ollowlngi 

LINE re«self:cteu rOH test^ 



6,2 I/O Driver 



If tht 10 Driver finds no available line to test a message win be 
displayed and then control win return to the »ready« state, 

NU LINES available: rOH TEST. 

#377 Multl line driver error. 

Error "messages tagcres as #377 indicate a failure during an i/o 
driver operation! sucn as a failure to interrupt on transmit to a 
terminal with the interrupt enable set. 

#376 

Same as #377 eicctpt a single line Driver # 



6.3 command Decoder 

Console terminal command errors win bg handled by a CMDERR module & 
will output a line ot 77?? If the Input was Invalid. 

If a line selection command tires to add cre-seiect) an invalid or non 
existent line a --line invalid message will be typed. 



6,4 System Sizer 

If during the sizing operation the sizing routine detects a failure of 
the interface to interrupt It will be reported, 

eXS 'NO INTEKHUPT ON TXMlT Ll^E 27' 



7,0 PROCEDURES FOR N0N»6TAN0ARD DEVICES, 

This diagnostic can be modified for use on devices that have 
non»gtandard interface addresses by replacing an unused address in the 
line table with the address of the interface line to be tested. 

The table is preset to the standard dl11"A,b,c,d^e addresses, (775610 
• 776170 ir 776500 - 77667m) , and the console address 777560. 

NO modification need be made because Of non-standard interrupt vector 
addresses. The diagnostic sizes each address for presence on the 
system^ and inserts the interrupt vector data into the table at run 
time, 

NOTES The table addresses are not in ascending order i rather it has 
been optomized f or relative system size by having the most 

com'Tionlv used addresses at the head of the table, PLll»A,B 
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101 




BASIC DEFINITIONS 


212 




ACTl 1 HOOKS 


216 


042^0 


TEST CONTROL & INITIALIZATION 


507 


08500 


LINE CONTROL & INITIALIZATION 


713 


12540 


SWITCH REGISTER ROUTINES 


791 


14840 


CONSOLE TERMINAL ROUTINES 


1189 


22020 


ERROR S« REPORT ROUTINES 


1378 


00700 


INTERFACE SIZER ROUTINES 


14S2 


05450 


EMT HANDLER 


1472 


06650 


I/O DRIVERS 


1059 


11595 


TRAP ROUTINES 


1793 


16900 


CONVERSION ROUTINES 


1898 


00250 


LA3b OPTION TESTS 


2778 


43150 


STORAGE k CONSTANTS 



« 
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13 


00260 






14 


00280 


} 


OPERATING INSTRUCTIONS 


15 


00300 








00320 




THIS TEST ASSUMES THAT THE BASIC IintKtACK 


17 


00340 




LOGIC TESTS & BASIC LA36 FUNCTIONS TEST 


18 


00360 




MDEC^l 1»DELAC«X HAVE BEEN HUN SUCESSFULUli , 


19 


00380 






20 


00400 




TIMING FOR ALL TESTS IS DEPENDENI UN cPl) TtPt, 


21 


00420 




THE TIMER IS SET FUR AN 11/40,,, IF THIS IS 


22 


00440 




NOT THE CASE CHANGE LOCATION '"TIMER" 


23 


00460 




ACCORDING TO THE TABLE SUPPLIED IN THIS LISli'^jG. 


24 


00480 






25 


00500 




THE DIAGNOSTIC wjlL STaHT BY ASKING IF THE npf-HAlOH 


36 


00520 




WANTS TO USE CONSOLE TEhMINAL CONTROL, Ai^S^Eh \ UH 


27 


00540 






28 


00560 




IF y IS ENTERED* A "MENUe" OF AVAILABLE COMMANDS iS 


29 


00580 




PRINTED ON THE TEHMINAL, AND THEN fHE PPUGHRK- «A1T3 


30 


00600 




FOR INSTRUCTIONS THRU THE KEYBOAHO, 


31 


00620 






32 


00640 




IF N IS ENTtRED, THE PHOGPAH '**\hh PRINT A LlSllivG OF 


33 


00660 




INTERFACES B¥ LINE NUMBER, THEN HALTS, SEl THfc S^ITCHEfc 


34 


00680 




TO THE DESIRED MODE AND PRESS CQwilNUE, TnE FROGhah **lhh 


35 


00700 




DECODE THE SWITCH REGISTER, AND IF RU^JNl^^G A vSfc,I.EC If: :r> 


36 


00720 




TEST, OR A SELECTED LINE, WILL MALT AGAIN, 


37 


00740 




ENTER THE DESIRED TEST nQ, IN IHE LOw OPUEH bYlE, AnU-Uk 


38 


00760 




THE DESIRED LINE NOg IN THE HIGH OhDER BYTE, PRESS CU-^llM'E 


39 


00780 






40 


00800 




IF NO HARDWARE SWITCH REGISTER IS PRESEJl OM THh Sjf.STtN 


41 


00820 




THE PROGRAM wILL USE LOCATION 17b AS A SOFT^AK!: SWITCH 


42 


00840 




REGISTER, CONTROL V^ILL DEFAULT TO IHE Cf'^SOLfc 1 


43 

44 


00860 
00880 






45 


00900 




TO CHANGE MODES TYPE CTL-C* 


46 


00920 




THE CONSOLE WILL RESPOND WITH READY,, 


47 


00940 




ENTER YOUR COMMANDS FOLLOWED HY AW ESC, 


48 


00950 




INTERACTIVE COMMANDS SUCH AS CTL«G MAY HE t^'lERED 


49 


00955 




DURING COMMAND, OH RUN MODES, 


50 


00960 






51 


00980 




IF MULTI«LINE MODE IS SELECTED, A lAHLt 


52 


01000 




OF INTERFACE LINES WILL BE PRINTED, 


53 


01020 




ALL LINES PRESENT WILL BE INITIALLY SELECTtD, 


54 


01040 




IF YOU ADD OR DROP LINES USE THE LINE NO, 


55 


01060 




SPECIFIED IN THE LINE TABLE LIST, 


56 


01080 
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98 




01160 


99 




01180 


60 




01200 


61 




01220 


62 




01240 


61 




01260 


64 




01280 


65 




01300 


66 




01J20 


67 




01340 


6S 




01360 


69 




01380 


70 




01400 


71 




01420 


72 




01440 


73 




01460 


74 




01480 


79 




01S00 


76 




01520 


77 




01540 


78 




01560 


79 




01S80 


80 




01600 


at 




01620 


82 




01640 


83 




01660 


84 




01680 


85 




01700 


86 




01720 


87 




01740 


88 




01760 


89 




01780 


90 




01800 


91 




01820 


92 




01840 


93 




01860 


94 




01880 


93 




01900 


96 




01920 



SWITCH REGISTER BIT DEFINITIONS 



BIT15 

B1T14 

BITU 

BITU 

BXTll 

BIT6 

BITS 



ai 


(UP) 


aid 




81 


(UP) 


80 


(DOWN) 


81 


(UP) 


B0 


(DOWN) 


SI 


(UP) 


80 


(DOWN) 


81 


(UP) 


80 


(DOWN) 


81 


(UP) 


B0 


(DOWN) 


Bl 


(UP) 


80 


(DOWN) 



HALT ON ERBUH 



LOOP AFTER FRROR l5 DETECTED 



INHIBIT ERROR REPORTS 
PRINT ERROR REPORTS 



PRINT INTERFACE TABLE 



INHIBIT ITERATIONS 



RUN ALL TESTS IN SEQUENCE 



RUN ALL AVAILABLE LINES 



SECOND WORD ENTR^ VIA SWITCHES 
BIT15 « BIT8 SELECTED LINE NUMBER 
BIT7 • BIT0 SELECTED TEST NUMBER 

#»*♦#### TEST ASSIGNMENTS «•*•«*«««««««««»•»«««««««««««««*#« 

TEST SECONDARY CHaBaCTER SeT 

TEST 1 SELECTIVE ADDRESSING OPl'IUN 

TEST 2 AUTO ANSWERBACK OPTION 

TEST 3 TOP OF FORMS OPflON 

TEST 4 HORIEONTAL TAB OPTION 

TEST 5 VERTICAL TAB OPTION 
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98 




01960 




104 




02080 




105 




02100 




106 




02120 


1 LOCAL PROGRAM EQUATES 


107 




02140 




108 


000020 


02160 


ABO B B1T4 


109 


000006 


02180 


ACK a 6 


110 


000004 


02200 


ADDC s BIT2 


111 


000200 


02220 


ATTN s BIT7 


112 


000015 


02240 


CR s 15 


113 


000003 


022b0 


CTLC a J 


114 


000000 


02280 


CTLCNT a 


115 


000007 


02300 


CTLG s 7 


116 


000010 


02301 


CTLH s 10 


117 


000013 


02302 


CTLK s 13 


118 


000014 


02303 


CTLL a 14 


119 


000016 


02304 


CTLN a 16 


120 


000020 


02305 


CTLP » 20 


121 


004000 


02320 


DATAIN a BITU 


122 


100000 


02340 


OLP a BIT15 


123 


000010 


02360 


DROPC » BIT3 


124 


000005 


02380 


ENQ a 5 


125 


004000 


02400 


EOL a BITU 


126 


020000 


02420 


EOP a BITU 


127 


040000 


02440 


EOT a RIT14 


128 


000033 


02460 


ESC s 33 


129 


000003 


02480 


ETX B 3 


130 


000001 


02500 


FLAGl SB BIT0 


131 


000002 


02520 


FI.AG2 a BITl 


132 


100000 


02540 


HALTOE a BlTiS 


133 


000200 


02560 


HALTC 8 BIT7 


134 


177776 


02580 


ICNT a -2 


135 


000040 


02600 


INHR a HITS 


136 


020000 


02620 


INHRPT a BIT13 


137 


005726 


02640 


ISP a 5726 


138 


022626 


02660 


ISP2 * 22626 


139 


000400 


02680 


LDONE » BITS 


140 


000100 


02700 


LOOPC a BIT6 


141 


040000 


02720 


LOOPOE B HITH 


142 


000200 


02740 


PRI4 a 200 


143 


000340 


02760 


PR17 a 340 


144 


000000 


02780 


PR10 s 


145 


000200 


02800 


SEL B BIT7 


146 


000240 


02820 


NOP s 240 


147 


000240 


02840 


NOOP B 240 


148 


003000 


02860 


MAJOR a 3000 


149 


000006 


02880 


POINT 8 6 


150 


000002 


02900 


PASCNT a 2 


151 


000010 


02920 


RPC s 10 


152 


000340 


02940 


NREO a 340 


153 


000017 


02960 


SI a 17 


154 


000016 


02980 


SO a 16 


155 


000001 


03000 


SOH a 1 


156 


000002 


03020 


STX 8 2 


157 


010000 


03040 


PPlNfT B BITi2 


158 


020000 


03060 


TDONE a BIT13 



ILINE ABORT FLAG 



)LIN£ PRESENT FLAG 



liNC SP 2 
flNC SP 4 



IPRIORITi 4 
» " 7 
f " 
ILINE SELECT FLAG 
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BASiC 




1 S9 










002000 






161 




M » 1 


NCmMOD 8 BITS 


162 


000 20i^ 




ub'&nv s niTi 


163 




031^0 


qrn » HTTfc 


1 64 


000040 


03200 


r.T 1 s H f 
\tuu I i. 


1 65 


000020 


03230 


SWrTI, S RITA 




00002^^ 




PRINT ® BIT4 


157 








168 


M0MMM4 
It/ <W 1/ V V "f 


03280 


MFLAGS s 4 


169 


177564 


03281 


TPS 8 177564 


170 


177S66 


03382 


TPB s 177566 


l7l 


177S60 


03283 


TKS a 177560 


172 


177562 


03284 


1KB H 177562 


173 


000060 


03285 


TKV a 60 


174 




03300 


EMT CALL EQUATES 


175 


104000 


03320 


TYPE s EMT 


176 


104002 


03340 


PHTTBL a EMT+2 


177 


104004 


03360 


ITHAP a EMT+4 


178 


104006 


03380 


DELAXR a EMT+6 


179 




03460 
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BASIC 


DEFINITIONS 






161 




000000 


03500 






JTHAP CATCHEH 


182 


000000 


000002 


03520 


.♦2 






183 


000002 


000000 


03540 


HALT 






184 


000004 


000006 


03560 


MACHERI «+2 






185 


000006 


000000 


03580 


HALT 






186 


000010 


000012 


03600 


,4-2 






187 


000012 


000000 


03620 


HALT 






188 


000014 


007162 


03640 


INTPAP 




IBREAKPOINT TRAP 


189 


000016 


000200 


03660 


PRI4 




lUSED DURING SYSTEM SIZER 


190 


000020 


007416 


03680 


TXTRAP 




flOT TRAP 


191 


000022 


000200 


03700 


PR14 




fUSED BY TXMIT I/O DRIVER 


192 


000024 


001372 


03720 


RESTRT 




1 POWER FAIL TRAPS TO RESTAHT 


193 


000026 


000000 


03740 


PR10 






194 


000030 


006162 


03760 


EMTB05 






195 


000032 


000000 


0i7B0 


PR10 






206 




000172 


04000 


» = 172 






207 


000172 


000000 


04020 


SWTE51I 9 WORD 







208 


000174 


000000 


04040 


Saline: , ^qhu 







209 


000176 


000000 


04060 


ss^mri .word 







210 


000200 


000137 fc0ll02 


04080 


JMP 


START 




211 






04100 








212 








gSBTTL ACTll HOOKS 




CI) 
(3) 










(1) 








jHOOKS REQUIRED 


BY ACTU 




cu 




000204 




SSVPCSi 




jSAVE PC 


CI J 




000046 




,846 






CI ) 


000046 


001 102 




START 




nnSEI L0C,4b TO AUUnESb K)\f bXkHI 


cn 




000052 




,352 






CD 


000052 


020000 




.WORD 


20000 


»}2)SET LuC,52 To 2n0«^0 


CI) 




000204 




8a$SVPC 




J 1 RESTORE PC 


213 




001 100 


04140 


9SI 100 






214 


00H0W 


000240 


04160 


NOP 
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TEST CONTROL & INITIALIZATION 


216 










04200 


,SBTTL TEST CONTROL & INITIALIZATION 


221 










04300 




222 










04320 


f 


22 J 


001102 








04340 


STAHTi Test monitoh 


23S 


001 102 


000005 






04380 


RESET 1 •«»«»«•»«»«««««*««#«»««»««»«»*»«»#»*«* 


226 










04400 


I 


227 










04420 


1 PROGRAM INITIALIZATION SECTION 


228 










04440 


1 


229 


001104 


012706 


00 1 1 00 






MOV ISTACKfSP 


230 


001110 


005037 


1 6 1 52 






CLR NEXT 


231 


001 114 


005037 


01 6I54 






CLR 1NTE5T 


232 


001120 


005037 


016162 






CLR NXILIN 


233 


001124 


009037 


0161 60 






CLH UNLIN 


234 


001 130 


01273t 


^10352 


(^16164 




MOV ilNBUFiPTR 


23S 


001136 


01270S 








MOV IT00BLK#R5 


236 










04580 


1 


237 










04600 


1 SEE IF SYSTEM HAS A SWITCH REGISTER 


238 










04620 






001142 


004737 








JSR PCfSWRTST 


240 










04660 


1 


24t 










04680 


1 PRINT TEST IDENTIFICATION MESSAGE 


242 










04700 


1 


243 


001146 


012700 


016772 






MOV »PROGID»H0 


244 


001152 


104000 






04740 


TYPE 


24S 










04760 


} 


346 










04780 


I DETERMIN SYSTEM CONFIGURATION ^ 


247 










04800 


J BUILD A TABLE OF INTERFACE LINES, 


24i 










04820 


1 


249 


001194 


004737 


005640 






JSR PCrBUiLP 












04860 


1 


111 










04880 


1 Restore trap catcher from 100 To 1000 


292 










04900 


1 


293 


001160 


004737 


006 126 






JSR PC#CATCM 


294 


001164 


104002 






04930 


PRTTBL 


29s 










04940 


1 


296 










04960 


1 FIND OUT IF operator WftNTS TO USE 


297 










04980 


f CONSOLE OR SWITCHS FOR CONTROL 


298 










05000 


} 


299 


001166 


004737 


003350 






JSR PC#GETSRC 


260 


001172 


004737 


003332 




05030 


5TART2I JSR PC»CONSON 


261 


001176 


032737 


000020 


001364 




BIT ISWCTLiPCFLAG 


(9} 


001204 


001011 








BNE 50001$ 












05060 


1 


263 










0S080 


> PRINT A MENUE OF AVAILABLE COMMANDS 


364 










05100 


1 


269 


001206 


012700 


017051 






MOV »L3#R0 


366 


001212 


104000 






05115 


TYPE 


267 


001214 


012700 


017056 






MOV IHEADRl »RH 


268 


001220 


104000 






05140 


TYPE 


369 


001222 


013700 


017103 






MOV |COM5UM,R0 


270 


001226 


104000 






05180 


TYPE 


271 


001230 










50001$! 


272 


001230 


004737 


003332 




05220 


5TART3I JSR PC#CONSON 


273 


001234 










50002*1 


274 










05260 


1 


279 


001234 


032737 


00002k? 


001364 




BIT #5WCTL»PCFLAG 
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TEST CONTROL & 


INITIALIZATION 


C9) 


001242 


001403 










BEU 


500048 


276 










05340 


1 IF IN 


SWITCH 


CONTROL GET CONTENTS OF S*^ HEG, 


277 


001244 


004737 


003130 








JSR 


PCfGETSWS 


278 


001250 


000421 










BR 


50005$ 


(3) 


001252 










5M004SI 






279 










05420 


» 






280 










05440 


1 IN CONSOLE CONTROL SIGNIFY READY 


281 










05460 


f AND READ COMMANDS FROM THE CONSOLE, 


282 










05480 


I 






283 


001252 


012700 


020123 








MOV 


»RDY,R0 


284 


001256 


104000 






05520 






TYPE 


285 


001260 










50006SI 






386 


001260 


000001 






05560 






WAIT 


287 


001262 


032737 


000200 


001 364 






an 


#ATTN#PCFLAG 


(5) 


001270 


001001 










BNE 


500078 


288 


001272 


000772 










BR 


50006S 


(31 


001374 










50007SI 






289 










05620 


1 






290 










05640 


J PRINT 


THE LINE TABLE IF REQUESTED. 


291 










05660 


1 






292 


001274 


032737 


0100011 


001364 






BIT 


•PRlNTTfPcFLAG 


C9) 


001302 


001404 










BEU 


50010S 


293 


001304 


104002 






05700 






PRTTBL 


294 


001306 


042737 


010000 


001364 






BIC 


SPRlNTT^PCf-LAG 


295 


001314 










5001081 






296 


001314 










5000551 






297 










05780 


1 






298 










05800 


J SET UP THE I/O DRIVER AREAS 


299 










09820 


I SET UP & EXECUTE REQUESTED TESTS, 


300 










05840 


1 






101 


001314 


004737 


0021 10 








JSR 


PC»LINMON 


302 


001320 


012700 


020411 




05870 




MOV 


»ALLON,R0 J ISSUE A SELECT ALL CDM'U'^U 


303 


001324 


004737 


007010 




05872 




JSR 


PC^MTYpfc |IN CASF. THERE ARt. SfcLtCilvt 


304 










05874 






ITEPMINALS ON Llut, 


J05 


001 330 


004737 


001446 








JSR 


PCTSTCTL 


306 


001334 


032737 


004000 


002032 






BIT 


ffEOLfCFLAGS 


C53 


001342 


001406 










BEU 


50003$ 


307 


001344 


042737 


004000 


k'0203 2 






BIC 


#EOL,CFI.AGS 


308 


001352 


004737 


0M1372 








JSR 


PC»HESTRT 


309 


001356 


000726 










BP 


50002$ 


(3) 


001360 










5000381 






310 


001360 


000137 


001172 




05990 




jmP START2 


311 


001364 










500008 1 






312 










06020 








313 










06040 






•#»##»##»♦«########*#»»»»#»»»♦«»##♦##*»»«»♦ 


314 










06060 






» » 


315 










06080 






# NOTE, , (TYPING CTL-G WHILE IN CONSULt * 


316 










06100 






« CONTROL MODE WILL CAUSE THE * 


317 










06130 






* PCFLAG WORD TO HE PRINTED, « 


318 










06140 








319 










06160 






»*««««««««•««**«««««««•«»»»«»«» »*«»««««**«« 


320 


001 364 








06180 


CTLBLKI 




IPROGRAm CONTROL BLOCK 


321 


001364 


000001 






06200 


PCFLAGi 


(WORD 


I jPROGRAM CONTHOL FLAGb 


322 


001366 


000000 






06220 


TESTNOi 


.WORD 


JTESTNO 


333 


001370 


000000 






06240 


LI^ENOl 


(WORD 


ILINENO 


334 










06260 









» 
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333 
336 
327 
338 
329 
330 
331 
332 
333 
334 
333 
336 
337 
338 
339 
340 
341 
343 
343 
344 
345 
346 
347 
348 
349 
J90 
3SS 
352 
393 
354 
353 
356 
357 
358 
359 
360 
361 
362 
363 
364 



001372 
001376 
001402 
001406 
001414 
001420 
001424 
001432 
001436 
001 44» 
001442 



012706 
005037 
005037 
012737 
005037 
005037 
012737 
004737 
000240 

00000S 

000137 



00U00 

016152 
016154 
000001 
016162 
016160 
016114 
006126 



062H^ 

0&2ei 

06282 
062^3 
06284 
06285 
062t»6 
06287 
06288 
06289 
06290 
06291 
06292 
06293 
06294 
06295 
06296 
06297 
06298 
06299 
06300 
06301 
06305 
06306 
06307 
06319 
06320 
06340 
06360 
06380 
06400 
06420 
06440 
06460 



016164 



065W0 
06520 
06540 
06560 
06580 



PCKLAG HIT DEFINITIONS « 



BIT 


15 


HALTOt; 


HALT ON EHHOH (Sw-lb) 


BIT 


H 


LOOPOfc 


LOOP ON ERHOB (S^.-H) 


BIT 


U 


INHRPT 


INHIBIT KEPORTS J J 


BIT 


12 


PHXNTT 


PHINT TABLE (S*-l 2) 


BIT 


U 


UATAIN 


DATA IN FRU" KBD, 


BIT 


10 


NEWTST 


CHANGE IN TEST fJO. 


BIT 


9 


NEWMOD 


CHANGE Ifi wODE, 


BIT 


8 


LDONfc 


END OF LINE TABLE HErtChEU 


BIT 


7 


ATTN 


ATTENTION inilllU 


BIT 


6 


SEti 


SEQUENCE TESTS mUUE 


BIT 


5 


MULTl 


MULTI LINE MOOE, 


BIT 


4 


SWCTL 


CONTHUL VIA SWITCHES^ 


BIT 


3 


DROPC 


UHOP LINE COMMAND 


BIT 


2 


ADDC 


ADD LINE COMMAND 


BIT 


1 


FLAGZ 


MODE 3 NO CURRENT 1/0 TU CUwSULt 


BIT 





FLAGl 


1 = IKf COMMAND INPUT MODE 



I RESTART 



RESTBTi MOV 


#5TACK,SP 


CLR 


NEXT 


CLR 


INTEST 


MOV 


#l#PCFLftG 


CLR 


NXTLIN 


CLR 


ONLIW 


MOV 


#INBUr,PTR 


JSR 


PC»CATCH 


NOP 




RESET 




JMP 


5TARTJ 



i/0 TESTING OK CONSOLE 
1 



{REINITIALIZE EVEH^TING 



CZLAFA0 LA36 TERM TST MACYll 3wAtl052) 03-JAN-77 00101 PAGE 1-9 



CZLAfA, 


Pi I 03«JAN«78 


11120 




TEST CONTROL INITIALIZATION 


369 










06680 


J 


370 










06700 


I TSTCTL THIS SECTION CONTROLS TEST SELEC T Ion» TEST 


371 










06720 


f SEQUENCING, AND INTERFACES TO ERROR ANO REPOh r 


372 










06740 


J MODULES AS REQUIRED BX THE TESl MODULES, 


373 










06760 


J 


374 










06780 




375 


001446 


013737 


001 366 


016152 


06800 


TSTCTLI MOV TeSTNOiNEXX J GET TEST MO, 


376 


001454 


013737 


016152 


016154 


06820 


LOOPli MOV NEXT, INTEST JGET CUHPEwV TEST 


377 


001462 


004737 


002056 




06840 


JSR PC»5UTEST 


378 


001466 


004777 


014464 




06920 


L00F2t JSR PC#iTESTAD nSTAHT TEST 


379 










06 940 


; 9 8 • 1 • 


380 










06942 


f 


181 










06944 


f CHECK FOB ERROR FLAG FROM TEST 


382 










06946 


} 


383 


001472 


5^32737 


000020 


001364 




BIT SSlNCTL^PCFLAG 


C9) 


001500 


001414 








BEQ 500US 


384 


001S02 


017737 


014416 


016100 




MOV §Sk»:R,TEMP 


385 


001510 


042737 


003777 


016100 




BIC «3777#TEMP 


386 


001516 


042737 


I 7 4000 


001364 




BIC #l7400fc'#PCFLAG 


387 


001524 


053737 


016100 


001364 




BIS TCMPrPCFLAG 


388 


001532 










50011 Si 


389 










06953 




390 


001332 


032765 


100000 


000004 




HIT #MESB»MFLAGS(R5 J 


C9) 


001540 


001414 








HEQ 50012S 


391 


001342 


016937 


0000^-4 


002032 




MOV MFLAGS(R5 ) ,CFLAGS 


392 


001530 


016937 


000006 


0020 J4 




MOV POINTCRb)f TSCPTR 


393 










07002 




394 










07004 


1 CALL ERROR HANDLER ROUTINE 


395 










07006 


1 


396 


001556 


004737 


005124 






JSR PC#EPROR 


397 


001562 


042t65 


100377 


000004 




BIC #MERRN,MFLAGS(Rb3 


398 


001570 


000421 








BR 50013S 


(3) 


001572 










50012SI 


399 










07062 


f 


400 










07064 


1 See if TEST IS REPORTING DONE CONlUTIQi^ 


401 










07066 


1 


402 


001572 


032765 


020000 


000004 




BIT «TDONE»MFLAGS(RSJ 


(9) 


001600 


001415 








BEQ 50014S 


403 










07082 


1 


404 










07084 


i'^^date The PaSs count then report end of pass 


403 










070B6 




406 


001602 


005265 


00000 2 






INC PaScNT(R5) 


407 


001606 


042765 


020000 


000004 




BIC »TD0NE,MFLAG5(R5) 


408 


001614 


052737 


020000 


002032 




BIS #E0P,CFLAG5 


409 


001632 


016537 


000002 


002036 




MOV PASCNT(R5) #TSCCNT 


410 


001630 


004737 


005436 






JSR PC#REPORT 


411 


001634 










50014SI 


412 


001634 










5001381 


413 










07222 


1 


414 










07224 


} If LOOP ON ERROR IS SET AND AM ERROR IS 


415 










07226 


I DETECTED THE ERROR HANDLER WILL HAKE THE 


416 










07228 


) RETURN ADDRESS OF THE TEST ODD , 


417 










07230 


1 


413 










07232 


ICHECS^ FOR ODD ADDRESS^ « , ^ IN LOOP MODE,,, 


419 










072J4 


1 


420 


001634 


032765 


000001 


000010 




BIT SBIT0,RFCCR5} 
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SfcU 002? 



(9) 


001642 


001 41 J 








BEQ 500153 


431 










07242 


1 


422 










07244 


f If The loop on mirror is turned opfi' then 


423 










07246 


1 CONTINUE Tt8T AT THE NEXT SUBTESTj 


424 










07246 




425 


001644 


032737 


040000 


001 364 




BIT *L0OPOE»PCf'LAG 


(9} 


001 652 


00I006 








BNE 50016S 


426 


001654 


042769 


00000 1 


00001 




BIC »BIT0#RPC(Rb3 


427 


001 662 


016937 


0000 1 


016156 




MOV RPC(R5) fTESTAD 


428 


vv I V r %/ 












429 


W 4 V f 10 


000456 








BR 50017$ 


(3) 


00 1 672 










50015$ 1 


430 










07342 




431 










07344 


1 CHECK TO SEE JF THE ITERATION COUNT IS CO'^'PLETeu 


432 










07346 




41 J 


001672 


026965 


000002 


000000 




CMP PftScNTCRS) »cTLCNT(B9) 


(9) 


001 700 


003447 








BLC 50020S 


434 


00 1702 


0527 37 


n40MRM 


0030 32 




BIS #EOT#CFLAGS 


439 


001 7 10 


005037 


002036 






CliR TSCCNT 


436 










07402 




437 










07404 


1 Report end of test condition 


438 










07406 




439 


001 7 1 4 


004737 


009436 






jsR Pcr Report 


440 


00lt20 


016965 


000002 


000000 




MOV PA5CNT(H5) #CTLCNHR5) 


(6) 


001 726 


066965 


177776 


000000 




ADD ICNT(R5) #CTLCNHR5) 


441 










07 443 




442 










07444 


J IF IN Sequence tests mode set up next test 


443 










07446 


1 


444 


001734 


032737 


000100 


001 364 




BIT SSEQfPCFLAG 


(9) 


001 742 


001423 








BEQ 500218 


445 


001 744 


013737 


01 6 1 52 


016194 




MOV NEXTflNTEST 


446 


00 1752 


005237 


016152 






INC NEXT 


447 










07520 




448 










07522 




449 










07524 


1 IF NEXT IS A NON EXISTANT TEST SET EOL 


450 










07526 


1 AND RETURN TO MONITOR FOR NEW COMMANDS 


451 










07528 




432 


001 756 


023727 


016154 


000009 




CMP INTESTf95 


(9) 


001 764 


003407 








BLE 500228 


493 


001 766 


005037 


016152 






CLR NEXT 


454 


00 J 772 


092737 


004000 


002032 




BIS #EOL#CFLAGS 


459 




vvv mY> f 






07600 


RTS PC 


436 


003002 


000402 








BR 500238 


(3} 


002004 










5002281 


497 


002004 


004737 


002056 






JSR PCSUTEST 


458 


002010 










5002361 


459 


003010 


000402 








BR 500248 


(3) 


003012 










5002181 


460 










07682 




461 










07684 


1 SET UP Test address for the same test again. 


462 










07686 


1 


463 


002012 


004737 


002056 






JSR PC#SUTEST 


464 


002016 










5002481 


465 


002016 


000403 








BR 500258 


C3) 


002030 










5002081 


466 










07742 


f 
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467 
468 

469 002020 

470 002026 

471 002026 

472 002026 
473 

474 

475 003032 

476 002034 

477 002036 
478 

479 

480 002040 

481 002042 

482 002044 

483 002046 

484 002050 

485 002052 

486 002054 
487 

488 
489 
490 
491 
492 
493 
494 
495 

496 002056 

497 002056 

498 002062 
C6J 002066 

499 002072 

500 002076 

501 002102 
902 002106 
(3J 002106 
(2} 002i06 
503 

504 
505 



016537 000010 016156 



000137 001466 



000000 
000000 

000000 



010164 
010444 
011526 
013700 
014652 
015154 
177777 



006337 016154 

012700 002040 

063700 0J6154 

011037 016156 



006237 
005065 



016154 
00000 4 



07744 
07746 



07820 
08160 



08200 
08220 
08240 
08260 
08300 
08320 
08340 
08360 
08380 
08400 



08440 
08441 
08442 
08443 
08444 
08445 
08446 
08447 
08448 
08449 



I RETURN TO TEST VIA ADDRESS SUPPLIED BY TEST 



RPC(R5),TESTAD 
L00P2 



I Flags 

IPOINTEK 
IPASCNT 



5002581 
5001781 

JMP 

I 

CFLAGSI ,WoRD 
TSCPTHi .WORD 
TSCCNti ,W0RD 



TSTbLI TeST0 
TESTl 
TEST2 
TEST3 
TEST4 
TESTS 
-1 



; ««««»«»»•»*« 

fSUTESI INITIALIZES THfe TEST ADDRESS PoiNlER 
f FOR TEST » IN 'INTEST' 

(««»««#«««««« 

SUTESTi 



5000081 
5000181 



I Table ok test addresses ***«««#«»♦#*»♦«»*«# 



ASL 


INTEST 


MOV 


«TSTBL»H0 


ADD 


INTEST, R|5 


MOV 


(P0),TE5TAD 


ASR 


INTEST 


CLR 


mflagscrs} 


RTS 


PC 
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507 










0ti500 




908 












1 ############ 


309 














S t0 










a UK*. J 

0o560 




911 














S13 










00 




311 










08620 




$14 


0021 10 










^ X w y n 1 


319 


0021 10 


032737 


00 1 000 


001 364 




rtT It NiTWMnn < Pr ki> ah 


(9} 


002 1 1 6 


001 427 








BEU 300029 


916 










08680 


1 


317 










08700 




918 












• SP'T IIP ft PDINTFU ABi''& WITH THP' 


919 














920 










00760 




331 


0021 2c 


0327 37 




00 1 364 




aTT 8 Mil r.T T . Pr'iri t,n 
D** "~uii* 1 1| rt" 4iAw 


r Q 1 


002 1 26 










DCiU 9l0l0lr'j9 


332 


^^n* ^ * 


004737 


002332 






JSR PC»(iVlj 


533 


002 1 34 










uon rw f " • " 


324 


002 1 40 


00« / J / 


002556 






JSR PCfGNL 


923 


002144 


0004 1 








BR 50004S 


V J / 


002146 










K tAtAlA 1 fi 1 


936 










v a 17 


} 


327 










08900 


• (tcT Sir I.Cff B'rt f.TNG* NIIMocU KMn 


93i 












• PIlIiL THF nikTA trsnM THh' Ttni.V 
1 rUu*^ ini!« MMiH ri^v™ xnci xitnuCfc 


939 










08^40 


1 


330 


_ . 


013737 


00 1370 








331 


003154 


004737 


002432 












013737 


w i I Dt7 


0IOIO2 




MOV O^LIN^NXTLIN 


4 1 1 


002 166 










K. tAtAtA A fi fl 
3 in V 1 


334 


002 166 


042737 




00 1 364 






335 


003 174 


000402 










(3) 


003 176 












336 










09080 




337 










09100 


1 DO LINgSgL SECTION fOF EACH DEVICE 


938 












t In BP* Ti^flTP^n 












1 40 


1 


540 


002176 


0047 37 


002204 






.ISR Pr< • I. T M cScf , 


34| 


002202 










500058 1 


343 


002202 












C3) 


002302 










5000 i S t 


C2 J 


002202 


000207 








BT5 PC 


943 










09220 




344 










09240 




343 










09260 


1 


346 










09280 


il^nESEl boutInE To furnish the iqdpiver with ovc poImicks 


947 










09300 


1 «*«*«*•«*««« 


348 










09320 




349 


002204 










LINESELI 


590 










09360 


1 


951 










09380 


1 MULTIPLE LINES UNDER TfiSl ? 


932 










09400 


1 


333 


002204 


032737 


000040 


001364 




BIT »mULTI#PCFLaG 


(9J 


002212 


001426 








BEQ 500028 


554 










09440 


f 


395 










09460 


; SET UP POINTER AREA WITH DATA FOR 



CZLArA0 


LA36 TERM 151 


MACYll 


CZLAFA, 


Pll 


3wJAN«78 


11 120 


956 








397 








338 


002214 


013737 


016162 


939 








360 








361 








362 


002222 


023727 


016160 


i9) 


002230 


001012 




363 


002232 


052737 


000400 


964 


002240 


004737 


002332 


365 


002244 


004^37 


002432 


566 


002250 


004737 


002556 


567 


002254 


000404 




C3) 


002256 






568 








569 








370 








871 


002256 


004737 


002432 


372 


002262 


004731 


002556 


973 


002266 






374 


002266 


000420 




(3) 


002270 






375 


002270 


004737 


002432 


376 


002274 


032737 


000200 


C9J 


002302 


001404 




377 








578 








579 








580 








381 


002304 


052737 


000400 


382 


002312 


000406 




C3) 


002314 






583 








384 








585 








586 








387 








588 


002314 


052737 


000200 


589 


002322 


012700 


020345 


390 


002326 


104000 




391 


002330 






392 


002330 






393 


002i30 






(3J 


002330 






(2) 


002330 


000207 




994 








395 








396 








997 








398 








399 


002332 






U) 


002332 


010346 




600 


002334 


012703 


016170 


601 


002340 


009713 




602 


002342 


100413 




6i3 


002344 


062703 


000010 
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09480 
09500 

09540 
09560 
09580 



177777 
001364 



016126 



09720 
09750 
09780 



09920 
09940 
09960 



10040 

10060 

10080 
10100 
10120 



10260 
10280 
10300 
10320 
10340 
10360 



I THE NEXT DEVICE TO BE TESTED 



MOV NXTLINiONLlN 

Reset everything if at the end of ouf device list. 



5000381 

I 

I Set up pointer area for line 
t 



CMP 


0NLJN,#-l 


BNE 


500038 


BIS 


#LDONE»PCFLAG 


JSR 


PC»GVL 


JSR 


PCfMTW 


JSR 


PCfGNL 


BR 


500048 



JSR 


PCr MTW 


JSR 


PCf GNL 


BR 


50005$ 


JSR 


PC»MTW 


BIT 


»SELrDLrLAG 


BEQ 


50006$ 



J CHECK TO SEE IF ALL DEVICES 

J HAVE BEEN TESTED YET, SET LOONE FLAG, 



BIS 

BR 



#LDONE#PCFLAG 
500078 



J KAKE SHURe that WHEN TESTING A 51^GLE 
I DEVICE , IT DOESN'T GET DROPPED 
{ BECAUSE OF EXCESSIVE ERRORS. 



BI5 

MOV 
TYPE 



SSELf dLFLaG 
«E20#R0 



5000781 
5000581 
5000081 
5000181 



I GVl THIS ROUTINE FINDS 



A VALIO LINE FoR TESTImG 



GVLt 







MOV 


R3#*CSP) 




10380 




MOV 


#LZNe0,R3 


iget aodh of line table 


10400 


GlAt 


TST 


(R3} 


|L1N PRESENT? 


10420 




BMl 


GlO 


lYES BRANCH 


10440 


GlBi 


ADD 


»10»R3 


}P01NT TO OTHER wORD 



ft 
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CZLAf A j 


Pll 03»>JAN*78 


11120 




LINE CONTPOL S. 


INITIALIZATION 




0B4 


002350 


020037 






10460 




cmp 


P0» tTABfi-ND 


iend op tabll V 




002154 


001371 






10480 






GlA 


}NU BRANCH 




002356 


013700 


020306 




10500 


GlCl 


MOV 


«EI9|R0 


jNUTlfX OPtRA'i'OK «» N(j 


607 


002 J62 


104000 






10520 




TYPE 






608 


002364 


000137 


001 3 '2 




10540 




JMP 


HESTBT 




609 


002370 


105713 






10560 


GlOi 


TSTB 


(R3i 




610 


002372 


100j64 






10580 




BPL 


GiB 


}N0 TRif ANOTHER LINE 


61 1 


002174 


062/03 


000006 




10600 




ADO 


#6f R3 


JPOINT TO OTHER wOHU 


612 


002400 


011337 


016160 




10620 




MOV 


(R3 J,0NL1N 


|GET DATA FROM TABLE 


613 


002404 


000337 


016160 




10640 




SWAB 


ONUN 




614 


002410 


109037 


016161 




10660 




CLRB 


0NLIN4-I 




615 


0024 1 4 


005037 


000174 




I06B0 




CLB 


SMLINC 




616 


002420 


113737 


016160 


000174 


10700 




MOVB 


ONLINf SMLINE 




617 


002426 


012603 










MOV 


(SP}<»f Ri 




618 


003430 


000207 






10740 




RTS 


PC 


JEXIT 


619 










10760 


1 






630 










10780 


1 MTW 


THIS 


ROUTINE TRANSFERS 


TARir DATA T l\ 1'Hfi' MARK AHkA 


621 










10800 


I «««««««*«««« 






622 










10820 










633 


002433 








10840 


MTWI 








t4J 


002432 


010346 










MOV 


R3r«'(SP} 




624 


002434 


013703 


016160 




10860 




MOV 


0NL1N,R3 


• fllTT f.TMC fan 


i3S 


002440 


006303 






10880 




ASL 


R3 




626 


002442 


006303 






10900 




ASL 


R3 




637 


002444 


006303 






10920 




ASL 


RJ 




62i 


002446 


062703 


016170 




10940 




ADD 


»LIN00,K3 


1 AUn IN BASE ADOK 


629 


002452 


012337 


016] 26 




10960 


MTNj 1 


MOV 


(RJ}-!-, DLFLAG 


|GET FLAG wORO 


630 


002456 


012337 


016130 




10980 




MOV 


(R3}'«'f DLAUR 


|GET ADDRESS 


631 


002462 


013337 






11000 




MOV 


(R3)<»-#DLVEC 


IGET VECTOK 


632 


002466 


011337 


Ml ^1 1 




111^20 




MOV 


CR3J#DL0TH 




6 33 


002472 


013737 


0161 i0 


_ 


11040 




MOV 


ULADR,DVCRXB 




634 


002500 


063737 


000002 


016136 


1 1060 




ADD 


«2rDVCRXB 




63S 


002506 


013737 


0161 36 


0}6l40 


11080 




MOV 


dvcrxb,uvctxs 




636 


00251 4 


063737 


000002 




1 1 100 




ADO 


#2#DVCIXS 




637 


002922 


013737 


0161 40 


016142 


11120 




MOV 


dvctxs,dvctxb 




638 


002530 


013737 


0l6l32 


01 6 1 44 


11140 




MOV 


DLVEC#TXVEC 




639 


002536 


063737 


000004 


u« hi 


1 1160 




ADD 


»4#TXVEC 




640 


002544 


^62737 


VVVVVJ t. 


0112 


11180 




ADD 


»2#DVCTXB 




641 


002552 


012603 










MOV 


CSPJ«»-,RJ 




642 


003554 


000207 






! 1220 




BTS 


PC 




643 










1 1240 


|«#«»«#»«»«#« 






644 










11360 




THIS 


ROUTinK FINDS THE 




649 










11280 








646 










11300 










647 


002S56 








1 1320 


GNLI 








C4J 


003356 


010346 










MOV 


R3»»(5PJ 




648 


002560 


013703 


016160 




11340 




MOV 


ONLINf RJ 


JGET CURRENT LINE 


649 


002564 


005203 






11360 




INC 


R3 


ICURRENT 4-i 


690 


002566 


006301 






11380 




ASL 


RJ 




631 


002570 


006103 






11400 




ASL 


HJ 




652 


002672 


006303 






11420 




ASL 


R3 


fX8 FOB OFFSET 


653 


002574 


062703 


016170 




11440 




ADD 


#LIM00,R3 


fADD IN BASE AODH UF TABLE 


6S4 


002600 


005713 






1 1460 


GNU 


1ST 


CH3) 


fLlNE PRESENT? 


695 


002602 


100403 






11480 




BMl 


GN3 


fYES " BRArtCH 


656 


003604 


062703 


000010 




11500 


GN2I 


ADD 


»10»R3 


IPOINT TO NEXT LINE fc^THl^ 


657 


003610 


000773 






11520 




BP 


GNi 


1 CHECK NEXT 
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CZLAFA, 


Pll 03«»JAN«78 


lll2fe» 




LINE CONTROL 4, INITIALIZATION 


658 


002612 


105713 






11540 


GN3I TSTB 


(R3) ILINE SELECTED? 


699 


002614 


100373 






1 1560 


BPL 


GN2 |N0 TRlf ANOTHEB 


660 


002616 


021327 


177777 




11580 


CMP 


iR3J»«-i IEND OF Table? 


661 


002622 


001412 






11600 


BEQ 


GN5 JYFS « BRANCH 


662 


002624 


062703 


000006 




1 1620 


ADD 


»6rR3 |GLT "OTHER ftORD 


663 


002630 


011337 


016162 




11640 


MOV 


IR3)»NXTL1N 


664 


002634 


000337 


016162 




1 1660 


5MAB 


NXTLIN 1 B NEXT AVAILABLE IIP'E 


665 


002640 


105037 


016163 




1 1680 


CLRB 


NXTLIN+l 


666 


002644 








11700 


GN4I 




(4J 


002644 


012603 








MOV 


CSP)+»B3 


667 


002646 


000207 






11720 


RTS 


PC fEXIT 


668 


002650 


012737 


177777 


016162 


11740 


GN5I MOV 


«-l, NXTLIN |SET NXTLIN "1 • i^O SEbtCT 


669 


003656 


000 772 






11760 


BR 


GN4 


670 










11780 






671 










1 1800 






672 










1182^ 


1 »«««•«««*««• 




673 










11840 


fUPDATE ROUTINE TO UPDATE INTERFACE TABLE FROM C()^*MA^DS 


674 










11860 






675 










1 1881^ 






676 


002660 










UPDATEI 




677 










U902 


f SHIFT THE CONVERTED LINE NO, FOR AN 


678 










11904 


f OFFSET TO THE LINE TABLE, 


679 










1 1906 






680 


002660 


006337 


004776 






ASL 


OAlA 


(7J 


002664 


006337 


0M4776 






ASL 


DATA 


U) 


002670 


006337 


004776 






ASL 


DATA 


681 










11930 


1 ADD IN THE 


BASE ADDRESS OF THE TABLE, 


682 


002674 


062737 


016170 


004776 




ADD 


#HN00,DATA 


683 










1 1960 






684 










11980 


! IF THE LINE 


SELECTED DOESN'T EXIST - 


685 










12000 


1 SEND AN ERROR MESSAGE, 


686 










12020 


1 




687 


002702 


032777 


100000 


(^02066 




BIT 


»DLPf HDATA 


(9) 


002710 


001003 








BNE 


500028 


688 


002712 


004737 


00510» 






USR 


PCfSELERR 


689 


002 M 6 


000430 








BR 


500038 


(3) 


002720 










5000281 




690 










12100 


» 




691 










12120 


1 ADDING A LINE SgTS IT'S "Sf-LtcTEU " FLaG 


692 










12140 


1 AND CLEARS 


OUT THE ERHOR COUNT FOR THAT LINE 


693 










12160 


J 


#addc#Tehpf 


694 


002720 


032737 


000004 


005002 




BIT 


C9) 


002726 


001415 








BEQ 


500048 


695 


002730 


092777 


000200 


002040 




BIS 


9SELf 9DATA 


696 


002736 


042777 


000037 


002032 




BIC 


«AB0Hl7#SUATA 


697 


002744 


062737 


000007 


004776 




ADD 


«7#DArA 


698 


002752 


117737 


002020 


001370 




MOVB 


0DATA#LINENO 


699 


002760 


000407 








BB 


500058 


C3) 


003762 










5000451 




700 










12300 


1 




701 










12320 


f DROPPING A 


LINE JUST BESETS IT'S "SELECTED" FLAG 


702 










12340 


J 




703 


002762 


032737 


000010 


005002 




BIT 


#DB0PC#TtMPF 


(9) 


002770 


001403 








BEQ 


500068 


704 


002^72 


042777 


000300 


001776 




BIC 


iSELf 8DA1A 


705 


003000 










5000611 
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706 
707 
708 
709 
C3) 
C2} 
H0 
7U 



003000 

003000 009H37 004776 

003004 

003004 

003004 000207 



t24»0 
12500 



5000S$I 
&»003S| 



50000SI 
5000lSi 



clr 
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003006 012737 003040 

003014 012737 000340 

003022 005777 013076 

003026 000240 

003030 012737 

003036 000404 

003040 012737 000176 016124 

003046 022626 

003050 012737 

06)3056 005037 

003062 000207 



000004 
000006 



177570 016124 



000006 000004 



003064 

003064 013746 001364 

003070 012t46 000006 

003074 012746 020230 

003100 004737 007566 

003104 142737 000006 020226 

003112 012700 020215 

003U6 104000 

003120 012700 017730 

003124 104000 

003126 

003126 

003126 000207 



003130 000000 

003132 017737 012766 016100 



003140 032737 000100 016100 

003146 001404 

003150 032737 000040 016100 

003156 001016 

003160 

003160 000000 



12540 
12560 
12580 
12600 
12620 
12640 
12660 
12680 
12700 
12720 
12740 
12760 
12780 
12800 
12820 
12840 
12860 
12880 
12900 
12920 



13080 
13120 



13160 
13180 
13200 
13220 
13240 
13260 
13280 

13320 
13340 
13360 
13380 

13420 
13440 
13460 
13480 



(SBTTL Si«ilTCH REGISTl-jB HOUTINES 

jSWFTST TKSTS FqR HARDWARE SWITCH REGISTER 
I «««««««««««« 



MOV 


#48#mACHEH 


|SU nXm XHAP Tu 4S 


MOV 


#PRI7#MACHER+2 




TST 


@SMR 


^ACCESS SWITCH REG, 


NOP 






MqV 


»l77570»Si«IR 


IRETAIN M/^RDWAHE PQlNTEk 


BR 


6$ 


1 


MOV 


ffSS^iRf SWF 


|SU FOR SOFTWARE SWITCH HEG 


ISP2 




ICLEAN THE STACR 


MOV 


#b,MACHEP 


fPESEI TRAP CATCHER 


CLR 


MACHER+2 




RTS 


PC 


J EX IT 



} »««»«««««««» 

} CTlGX THIS ROUTINE PRINTS THE PRoGRAk' CONTROL FLAGS 0^ THE CqimSolE, 
CTLGX I 



MOV 

MOV 

MOV 

vJSH 

BICB 

MOV 

E 

MOV 



TXPE 
S0000II 
50001SI 



RTS 



PCFLAG,-tSP) 

#6»-lSP) 

• SW+U ,,-CSP) 

PC#02ASC 

#6*SW4-11 

ffSWf R0 

#LlrR0 



PC 



;««»«»«««««*» 

jGETSWS THIS ROUTINE READS THE SWITCH REGISTER AnU 
I CONVERTS THE DATA TO THE APPROPRIATE COi^TrOL 

> FLAGS OR POINTERS, 

;«»»«#«»«*««« 

GETSiNSl 
f 

I STOP HERE FOR OPERATOR TO ENTkR CONTROL SWITCHES 
1 

HALT 

MOV S»SWR,TEMP 



IF SWITCHES INDICATE A SINGLE LINE OR A SINGLE TEST 
TO BE DONE STOP SU OPERATOR CAN ENTER LINE/TEST DATA 



50li02ii 



BIT 
BEG 
BIT 

BNE 

HALT 



«SEUrTEMP 
50002$ 
«MULTI»TEMP 
30003S 
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CZl^AfA, 


PU 


<}3«JAN«78 


11120 




SWITCH 


RES1STII.R 


ROUTINES 


763 


003162 


017737 


0!273ft 


016102 




< 


HOV 


flSWKf TKMP't'2 


764 


003170 


005037 


001 366 








CIjR 


TESTNO 


76S 


003174 


113737 


016102 


001 36b 






HO 


TEMP+2 1 TESTNO 


t66 


003202 


00S037 


00137*^ 








CLR 


LINENO 


t67 


003206 


U3737 


01610J 


001370 






MOVB 


'IEMP + 3# LINENO 


t6i 


003214 










50003$! 






f69 


003214 


032737 


0fe)0100 


016100 






BIT 


#SEQ# TEMP 


(9) 


003222 


001406 










BCti 


500048 


770 


003224 


052737 


000J00 


001364 






BIS 


dSEUf PCFLAG 


771 


003232 


009037 


001366 








CLR 


TESThO 


772 


003236 


0H0403 










BR 


50006 S 


C3) 


003240 










5000481 






773 


003240 


042737 


000100 


001364 






BIC 


#8E0» PCFLAG 


774 


003246 










50005$! 






773 










13780 








776 


003246 


032737 


000040 


016100 






BIT 


e MUf ,T T < TfTMP 


(9) 


0032S4 


001406 










BEQ 


500068 


777 


003256 


052737 


000040 


001364 






BIS 




778 


003264 


005037 


001370 








CLR 




779 


003270 


000401 










BR 


50007 8 


(33 


003272 










5000681 






780 


003272 


042737 


000040 


001364 






8IC 


#multi#pcflag 


781 


003300 










50007S! 






782 










13940 








783 


003300 


032737 


0»3200 


001364 






BIS 


IATTM INEWMOD I #NEwTST» PCFLAG 


784 










13980 








789 


003306 


042737 


174037 


001364 






BIC 


#174037, PCFLAG 


786 


003314 


042737 


003777 


016100 






BIC 


»3777#TEMP 


787 


003322 


053737 


016100 


001364 






BIS 


TEMP, PCFLAG 


788 


003330 










5000081 






C3J 


003330 










500018! 






i2j 


003330 


000207 










HTS 


PC 


789 










14100 
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CZLAFA, 


PU 03"«JAN»7B 


1U30 




CONSOLE 


TERMINAL ROUTINES 




791 










14840 


.SBTTL 


CONSOLE TERMINAL ROUTINES 




792 










14860 








793 










14880 


ICONSUN— ' Routine to initiai,ize console vector 


AREA 


794 










14900 








795 










14920 








796 


003332 


012737 


003466 


000060 


14940 


CONSONi MOV 


#READKB#8«TKV llNTERHUPT TO 


"REfiUKB" 


797 


003340 


012737 


000101 


J77560 


14960 


MOV 


#101 #i«TKS 




798 


003346 


000207 






14980 


RTS 


PC 




799 










15000 








800 










15020 


1 






801 










15040 


> GETSPC 


THIS HOI'TINE ASrS THE OPEBATUK 


IF HE/SHE 


802 










15060 




WANTS TO USE CONSOLE CONIRUL, 


THE^i SETS 


803 










15080 




A CONTROL FLAG ACCORDINGLY, 




804 










15100 








805 










15120 








806 










16140 








807 


003350 










GETSRCI 






808 


003350 


005077 


012610 






CLR 


»PTR 




809 


003354 


012700 


020370 






HOV 


»CTLM,Rfc5 




810 


003360 


104000 






15220 


TXPC 






811 


003362 


012737 


000001 


177S60 




MOV 


« 1 f i>«TKS 




812 


003370 










500028! 






813 


003370 


032737 


000200 


177560 




BIT 


#REAUY#PITKS 




C9) 


003376 


001410 








BEQ 


500048 




814 


003400 


113777 


177562 


012S56 




MOVB 


f tTKB»8PIK 




815 


003406 


004737 


005044 






JSR 


PC, ECHO 




816 


003412 


012700 


017730 






MOV 


#LI»R0 




817 


003416 


104000 






153e>0 


TYPE 




BIB 


003420 










5000431 






819 


003420 


005777 


012540 






TST 


#PTR 




(5J 


003424 


001001 








BNE 


5001^38 




820 


003426 


000760 








bR 


500028 




13) 


003430 










500038! 






821 


003430 


142/77 


000200 


012526 




BICB 


»200#fPTR 




8 22 


003436 


027727 


012522 


0001 16 




CMP 


f PTR,«'N 




C9J 


003444 


001007 








BNE 


500058 




(6) 


003446 


023727 


016124 


0001 76 




CMP 


SWR, iSStMR 




(9J 


003454 


001403 








BEQ 


500098 




823 


003456 


052737 


000020 


001364 




BIS 


SSWCTLf PCFLAG 




824 


003464 










900058! 






825 


003464 










500008! 






C3) 


003464 










5000181 






(2) 


003464 


000207 








RTS 


PC 





CZLAFAi? LA3e TERM TST MACYU 30A(1052) 03«JAN»77 00101 PAGE l«20 
CiLAFAsPli 03«JAN«»78 11I2« CONSOLE TERMINAL ROUTINES 



1137 










15540 


i 




U38 










15560 


1 BEAPKB this module is an INl'ERBUPT HanuLEH 


929 










15580 


I FOB 


THE CONSOLE TERMINAL, 


830 










1 5600 


} »**««•««•««« 




831 










15620 






833 


003466 










BEADKBt 




833 


003466 


010046 








MOV 


H0»'-(5P) 


834 










15650 


i 




835 










15655 


1 GET CHAP FROM KEYBOARD BUFFER REG, 


83b 










13660 


1 CLEAR PARITY 


BIT IF SET, 


837 










15665 


> 




836 


003470 


013737 


177562 


003776 




MOV 


9»TKB»HDSAV 


839 


003476 


142737 


000200 


003776 




BICB 


»200f RDSAV 


840 










15680 


1 




84i 










15685 


1 CHECK FOP DEVICE ERROH 


843 










15690 


1 




843 


003504 


032737 


lit?0000 


003776 




BIT 


#meRR»Rdsav 


(9} 


0039! 2 


001405 








BEQ 


500028 


444 


00351 4 


004737 


005062 






JSH 


PC#CMDERR 


84S 


003520 


005037 


177560 






CLR 


i»TKS 


846 


003524 


000516 








BR 


50003S 


(3) 


003526 










5000291 




847 










15715 


t 




848 










15720 


i IF CMU CHAR 


Was a ctl-g do the ctlgx routine 


849 










15725 


1 PRINT OUT PCFLAGS ON CONSOLE, 


850 










15730 


f 




851 


003526 


123727 


003776 


000007 




cmPb 


RdSav,»ctlg 


(9} 


003534 


001006 








BNE 


50004$ 


852 


003536 


004737 


003064 






JSR 


PC#CTLGX 


853 


003542 


1 2700 


017730 






MOV 


»L1»R0 


854 


003546 


1 04000 






15750 


TYPE 




855 


003550 


000504 








BR 


50005S 


t3J 


003552 










50004SI 




856 










15756 


1 




857 










15757 


f IF IN I/O MODE PUT DATA IN I/O BUFFER 


858 










1S758 


1 




859 


003953 


032737 


000002 


001 J64 




BIT 


#FLAG2#PCFLAG 


(9} 


003560 


001 4 10 








BEQ 


500068 


860 


003562 


1 1371 1 


003776 






MOVe 


RPSAV# (RU 


86| 


003566 


052737 


004000 


001 364 




BIS 


»0ATA1N,PCFLAG 


862 


003574 


005037 


007564 






CLR 


delayt 


863 


003600 


000470 








BR 


50007$ 


(3) 


003602 










50006SI 




864 










15776 


t 




865 










15777 


IIF IN COMMAND 


MODE PUT DATA IN INBUf 


866 










15778 


|AHD CALL INTERPBITEP 


867 










15779 


I 




868 


003602 


032737 


000001 


001364 




BIT 


»flagi#pcflag 


19) 


003610 


001406 








BEQ 


50010$ 


H9 


003612 


113777 


003776 


012344 




MOVB 


RD5AV#PPTR 


870 


003620 


004737 


004000 






JSR 


PCiCSI 


871 


003624 


000456 








BR 


50011S 


C3) 


003636 










5001091 




(172 










15796 


1 




873 










15797 


f CLEAR AND GO 


TO READY STATE, 


874 










15798 


> 
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CZLAFA, 


Pll 03'»JAn«78 


11120 




CONSOLE 


TERMINAL ROUTINES 


875 


003626 


123727 


003776 


000003 






cmpb 


RDSAV»#CTLC 


C9) 


003634 


001003 










BNE 


500128 


876 


003636 


004737 


001 J72 








JSR 


PC»RESTRT 


877 


003642 


000447 










BR 


5001 38 


(3) 


003644 










5001251 






878 










15811 


t 






879 










15812 


t CHECK 


FOR PRINT REPORTS COMMAND 


880 










15813 


> 






88} 


003644 


123727 


003776 


000020 






CMPB 


RDSAV, »CTLP 


C9J 


003652 


001004 










BNE 


500148 


882 


003654 


042737 


02000(^ 


001364 






BIC 


HINHRPIiPCFLAG 


883 


003662 


000437 










BR 


50015S 


(3) 


003664 










5001481 






884 










15826 


1 






885 










15827 


J CHECK 


FOR NO 


REPORTS COMMAND 


886 










15828 


> 






887 


003664 


123727 


003776 


000016 






CMPB 


RDSAVf »CTLN 


C9) 


003672 


001004 










BNE 


500168 


888 


003674 


t:527 37 


020000 


001364 






BIS 


IINHRPT^PCI-LAG 


889 


003702 


000427 










BR 


500178 


(3) 


003704 










500I6SI 






890 










15841 








891 










15842 


I CHECK 


FOR HALT ON ERROR COMMAND 


892 










15843 








893 


003/04 


123727 


003776 


000010 






CMPh 


RDSAV,#CTLH 


(9J 


003712 


001004 










hNE 


500208 


894 


003714 


052737 


100000 


001364 






BIS 


#HALTOE,PCFLAG 


895 


003722 












BR 


500218 


13) 


003724 










50020SI 






896 










15856 


1 






897 










15857 


I CHECK 


FOR LOOP ON ERROR COMMAND 


898 










15858 


1 






899 


003724 


123727 


003776 


000014 






CMPB 


rdsav#«ctll 


(9) 


003732 


001004 










BNE 


500228 


900 


003734 


052737 


040000 


001364 






BIS 


»LOOPOE,PCFLAG 


901 


003742 


000407 










BR 


500238 


C3J 


003744 










5002281 






902 










15871 


1 






903 










15872 


f CHECK 


FOR CLEAR CUMMaNO 


904 










15873 


I 






905 


003744 


123727 


003776 


000013 






CMPb 


rdSav,#ctlk 


19) 


003752 


001003 










BNE 


500248 


906 


003754 


042737 


140000 


001364 






BIC 


#HALT0E| SI.OOPOE/PCFLAG 


907 


003762 










5002481 






908 


003762 










5002381 






909 


003762 










5002181 






910 


003762 










5001781 






911 


003762 










5001581 






912 


003762 










5001381 






913 


003762 










5001181 






914 


003762 










5000781 






915 


003/62 










5000581 






916 


003762 










5000311 






917 










15935 








918 










15940 


1 TURN 1 


:ONSOLE 


BACK ON 1. EXIT, 


919 










15945 


f 
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920 003762 012737 

921 003770 012600 
923 003772 000002 
^23 003774 

(3J 003774 

(2) 003774 000207 
924 

923 003776 



000101 177560 



13960 



16900 
16600 



MOV 
MOV 
RTl 



5000091 
5000181 



#101f 9»TKS 
CSP)+#R0 



PC 
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CZLAFA, 


PU 03 


»JAh-78 


11120 




CONSOLE 


TERMINAL POUIINES 


927 










16640 


1 ««»«»#*««««»«»« 


928 










16660 


t CS| COMMAND STRING INTERPRETER 


929 










16680 


1 »«««#«««««««»«» 


930 










16700 




$31 


004000 










CSXl 


932 










16740 


1 


933 










16760 


1 IF CMD CHAR IS AN ESCAPE ECHO A '8' 


934 










16780 


1 AND SET MODE BACK 10 0, 


935 










16800 


1 


936 


004000 


123727 


003776 


000033 




chpb rdsav,#esc 


(9) 


004006 


001030 








UNE 500028 


937 


004010 


112777 


000044 


012146 




M0V8 #'$,PPTR 


938 


004016 


004737 


005044 






JSR PCiECHO 


939 


004022 


012700 


017051 






HOV »L3»R0 


940 


004026 


104000 






16900 


TYPE 


941 


004030 


042737 


000001 


005002 




8IC »FLAG1#TEMPF 


942 










17100 


i 


943 










17120 


1 MOVE NEW CONTROL FLAGS TO THE PCFLAG WUKu, 


944 










17140 


1 RESET THE BUFFER POINTER, 


945 










17160 


1 


946 


004036 


013737 


005002 


001364 




MOV TE«PF#PCrLAG 


947 


004044 


013737 


005004 


001366 




MOV TEMPI, TESTNO 


948 


004052 


012737 


016114 


016164 




MOV #INBUF,FTK 


949 










1 /235 


1 CLEAR ATIENTIOw FLAGS FROM TEMPF 


950 


004060 


B42737 


01760 J 


005002 




BIC »17603#TEMPF 


951 










17260 




952 


004066 


000457 








BR 50003s 


13) 


004070 










5000281 


953 










17300 


> 


954 










17 320 


f IF CMD CHAR V^AS A UELETE RESET THE BUFFI-:P 


955 










17 340 


1 POINTER AND ECHO A CR/LF, 


956 










17360 


» 


957 


004070 


123737 


003776 


016166 




CHPB ROSAVfDEL 


(9) 


004076 


001007 








BNE 500048 


958 


004100 


012737 


016114 


016164 




MOV KINBUF^PTR 


959 


004106 


012700 


017730 






MOV »L1,P0 


960 


004112 


104000 






17440 


TYPE 


961 


004114 


000444 








BR S000SS 


(3} 


004116 










5000481 


962 










17480 


J 


96J 










17500 


1 IF CMD chaR was a Return echo a cR/lf 


964 










17520 


1 AND CALL the DECODER, 


965 










17540 


1 


966 


004U6 


123727 


003776 


000015 




cmPb rdSav,»cr 


(9) 


004124 


001021 








BNE 500068 


967 


004126 


012700 


017730 






MOV «LlfR0 


968 


004132 


104000 






17600 


TYPE 


969 


004134 


004737 


004230 






JSR PC»UECOOE 


970 


004140 


123727 


016U4 


000121 




CMPB INBUF,»'Q 


C9) 


004146 


001007 








BNE 500078 


971 


004150 


005037 


001366 






CLR TE8TN0 


972 


004154 


003037 


005004 






CLR TEMPT 


973 


004160 


012737 


000001 


016152 




MOV 11 f NEXT 


$74 


004i66 










3000781 


975 


004166 


000417 








BR 500108 


(33 


004170 










5000681 



SEU HV14^ 
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^>76 








17B00 


977 








17820 


978 








17840 


979 








17860 


980 


004170 


123727 


003776 000077 




i9j 


004176 


ejw|007 






981 


004200 


tU2700 


017103 




982 


004204 


104000 




17920 


983 


004206 


012700 


020123 




984 


004212 


104000 




17960 


985 


004214 


000404 






(J) 


004216 








986 








18000 


987 








18020 


988 








18040 


989 


004216 


004737 


005044 




990 


004222 


005237 


016164 




991 


004226 








$92 


004226 








991 


004226 ' 








994 


004226 








993 


004226 








(3) 


004226 








(2) 


004226 


000207 






996 








18220 


997 








18240 



» ir c^'P chaR WftS A '7' pltype Thi: commanu 

I SUMMAKY & GO TO READY CONDITION, 



CMPB 


ROSAV,« 


'? 


BNE 


50011S 




MOV 


#C0M5UM 


#R0 


TYPE 






MOV 


»POY»R0 




TYPE 






BR 


50012$ 





50011$! 
I 

t ECHO THE INPUT CHAFftCTEH, 
t 

J5R PCrKCHO 
INC PTB 

5001281 
5001081 
50005SI 
5000381 
5000081 
5000181 

RT5 PC 
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PU 03 


l-JAN»78 


11120 
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TERMINAL ROUTINES 


999 










18280 


1 »««#»«««#»»» 




1000 










18300 


fOECOOE THIS SECTION DECODES THt COmhAND STRInO fRgf-. THE 


1001 










18320 


} CONSOLE, AND SETS THE APPKOPKIATE CONTROL FALGS, 


1002 










18340 






1003 










18360 






1004 


004230 










DECODEI 




1005 










18400 






1006 


004230 


010046 








MOV 


R0#-(SP) 


1007 


004232 


010146 








MOV 


R1#-(SP) 


1008 


004234 


010246 








MOV 


R2#-<SP) 


1009 


004236 


012702 


001364 






MOV 


SCTLBLK,H2 


1010 


004242 


012700 


004656 






MOV 


»DECTBL,R0 


1011 


004246 


012701 


016114 






hOV 


#lNBUr#Rl 


I0ia 


004252 










5000281 




1013 










18560 


» 




1014 










18580 


t COMPARE CHAR 


IN TO FIRST BYTE Of TABLE 


1015 










18600 


1 




1016 


004252 


121110 








CMPB 


tRl)# (R0J 


C9) 


004254 


001145 








BNE 


500048 


1017 










18640 


1 




1018 










18660 


1 IF SAME GET 


FLAGS FROM THE TABLt TO TE'^P^ 


1019 










18680 


1 




1020 


004256 


116037 


000001 


004774 




moVb 


1(R0)»decsav 


1021 


004264 


056037 


000002 


005002 




HIS 


2tR0)#TEMPF 


1022 


004272 


046037 


000004 


005002 




BIC 


4tP0)#TEMPF 


1023 


004300 


005037 


004776 






CLP DATA 


1024 


004104 


005037 


005000 






CLR DATA2 


1025 










18800 


1 




1026 










18820 


> SEE IF THIS 


COMMAND REQUIRES ADDITIONAL UAIA 


1027 










18840 


1 




1028 


004310 


032737 


000340 


004774 




BIT 


«NReO»DEC5AV 


(9J 


004316 


001S20 








BEQ 


50005S 


1029 


004320 


126127 


000001 


000015 




CMPB 


1(R1)»«CR 


t9J 


004326 


001006 








BNE 


500068 


1030 










18900 


1 




1031 










18920 


1 DATA REQUIRED BUT NOT PRESENT ... ERROR 


1032 










18940 


1 




1033 


004330 


004737 


005062 






JSR 


PC#CMDERR 


1034 










18980 


1 




1035 










19000 


I IF A OR p COMMAND USE DaTa FOR LINE NO, 


1036 










19020 


1 




1037 


004334 


012737 


016114 


016164 




MOV 


iINBUF#PTR 


1038 


004342 


r00505 








BP 


500078 


13) 


004344 










5000681 




1039 










19080 


f 




1040 










19100 


1 CONVERT THE 


CHARS TO OCTAL,,, DATA 


1041 










19120 


1 




1042 


004344 


012746 


004776 






MOV 


»DATA#-tSPJ 


1043 


004350 


116137 


000001 


004776 




HOVB 


1(RU#DATA 


1044 


004356 


126127 


000002 


000015 




CMPB 


2fRl)#«CR 


C9) 


004364 


00100J 








BNE 


50010S 


1045 


004366 


012746 


000001 






MOV 


il#-(SP) 


1046 


004372 


000417 








BR 


500U8 


(3) 


004374 










5001081 




J047 


004J74 


116137 


000002 


004777 




MOVB 


2CB1)»DATA*1 


104S 


004402 


136127 


00000J 


000015 




CMPB 


3tRl)#SCP 
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(9} 


^04410 


00I003 








BNE 


50012S 


1049 


004413 


012746 


000002 






MOV 


#3f <"(SP j 


1 0S0 


00441 6 


000403 








BR 


500 139 


(3 J 


004420 










5001211 




1031 


004420 


116137 


00000 1 


005000 




MOVf» 


3(HUfOATA3 


1052 


004426 


013746 


00000 3 






MOV 


«3,-(5P) 


1033 


0044 33 










5001391 




1034 


004433 










50011SI 




1059 


004433 


012746 


004776 






MOV 


«DATA»-CSP) 


1 036 


004436 


004737 


007676 






JSK 


PC# A2BIN 


1 057 










19440 


I 




I0S8 










1 9460 


1 ir H COMMAND 


USE DATA AS A TEST NO, 












19480 


1 




1060 




131027 


000 122 






cwpb 


(R0)#»'K 


r Q 1 


004 










BNE 


50014S 












19520 


1 




1 062 










1 9540 


f CHECK THE LIMITS FOH VALID TEST NO, 














1 




1064 










1 9580 




BELO" IS HIGHEST TEST NO IHIS DlAG^^OSTJC 




19044919 


005737 


aMA77ft 






TST 


DATA 


( i) 
















(6} 


004496 


023727 


004 f f 






CHP 


DATA, 


(9] 




003403 








bLE 


300 168 




004466 










500ISS i 




I066 


004466 


004737 


003 1 00 




















1 9640 


J JSP 




1 066 










19660 


I OUT or RANGE 


ERROR, 


1069 










1 96H0 


1 




1070 


004472 


000403 








BP 


500178 


(3) 


004474 










50016$! 






004474 


013737 


004776 


005004 




MOV 


UATA»TEmPT 


1072 


004302 










50017SI 




1073 


004303 


032737 


I00000 


005000 




BIS 


tiMERR#DATA3 


1074 


004310 










5001481 




1073 










19800 


1 




1076 










1 9820 


1 IF w COMMAND 


USE DATA AS WIDTH 


1 077 










19840 


> 




1078 


004310 


121027 


000137 






cmpb 


(R0),«'W 


(9) 


00431 4 


001003 








BNE 


500208 


1079 










19880 


I 




1080 










19900 


f GO CHECK FOR 


VALID LIMITS ON wIDTH ENTRV, 


108 1 










1 9930 


1 




1082 


004316 


004737 


005006 






JSR 




1083 


004332 


052737 


100000 


005000 




BIS 


tMERR,0ATA2 


1084 


004330 










50020it 




I08S 










20000 


1 




1086 










20020 


> IF ADDING OR 


DROPING A LINE CALL UPDATE ROUTINE 


1087 










20040 


1 




1088 


004330 


121027 


000101 






cmpb 


(P0J#8'A 


C8) 


004334 


001403 








BEQ 


500218 


(6) 


004336 


121027 


000104 






CMPB 


tR0)»»'D 


C9> 


004542 


001003 








BNE 


500238 


(6) 


004344 










50021$! 




1089 










30080 


I 




S090 










20100 


1 Take line no, 


, AND UPDATE INTtKFACE TABLE 


1091 










20120 


1 
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CZLAFA9 


Pll 03 


I»jAn«»78 


11120 




Console 


1093 


004344 


004737 


002660 






1093 


004350 


032737 


100000 


003000 




1094 


004356 










1095 


004356 










1096 


004356 


000403 








(3) 


004360 










1097 


004360 


052737 


100000 


005000 




1098 


004566 










1099 


004366 


000415 








(3) 


004570 










1100 


004370 


062700 


000006 






1101 










30330 


1103 










20340 


1103 










20360 


1104 










203B0 


1105 


004374 


020M27 


004774 






C9J 


004600 


001010 








1 106 


004602 


004737 


005062 






1107 


004606 


012737 


016114 


016164 




1108 


004614 


052737 


100000 


005000 




1109 


004b33 










1110 


004623 










nil 










20520 


1113 










20540 


1113 










20560 


1114 










20580 


1115 


004633 


032737 


104)000 


005000 




C5) 


004630 


001001 








1116 


004b33 


000607 








(3) 


004634 










1117 


004634 


003037 


005000 






1 118 










20660 


1119 










30680 


1130 










20700 


1131 


004640 


012737 


01b 114 


016164 




1132 


004646 


012603 








1133 


004650 


012601 








1 134 


004652 


012600 








1123 


004054 










C3J 


004654 










C3} 


004654 


000307 








1126 










20830 


1137 










30840 


1138 


004656 


123 


000 




20860 


1139 


004660 


001300 


000040 




30880 


1130 


004664 


115 


000 




30900 


U31 


004666 


001240 


000000 




20920 


1133 


004673 


121 


000 




20940 


1133 


004674 


000100 


000000 




20960 


1134 


004700 


132 


200 




20980 


1133 


004702 


000300 


000100 




21000 


1136 


004706 


104 


100 




31020 


1137 


004710 


002010 


000004 




21040 


1138 


004714 


101 


100 




21060 


1139 


004716 


002004 


000010 




21080 


1140 


004t22 


124 


000 




21100 



JSR 
BIS 



5002281 

S0007SI 



500238! 



PC»UPDATE 
«MERR,DATA2 



50033S 
»mERR#DATA2 



IF THE CHAR IN DOESN'T COMPARE TO ANY 
TABLE ENTRY THE COMMAND IS INVALID 



R0# »DTEND 
50035$ 
PCfCMDERR 
» INBUF#PTR 
•WERHf DATA2 
5002581 
500248! 
J 

J KEEP LOOKING AT CHAH UNTIL lT''S 
J DECODED, OR END OF TABLE (EHHOHJ, 



CMP 
BNE 
JSR 
MOV 
BIS 



BIT 
BNE 
BR 

CLP 



»MERB»DATA2 

500038 

500028 



I Reset the input bu^feh pointer 
1 



MOV 
MOV 
MOV 
MOV 



500008! 
500018! 



DECTBl! . 



BYTE 
WORD 
BjiTE 
WORD 
BYTE 
WORD 
BYTE 
WORD 
BYTE 
WORD 
BYTE 
WORD 
BYTE 



»iNBUF»PTH 
CSPJ+,R2 
(SP)+,Rl 
(SPJ+#R0 



•S#0 

ATTNJNEwMODfMULTl 
'M,0 

AT|N|MULTI INEWM0D# 
•U#0 

ATTN1SEQ#0 
•R,200 
ATTNfSEU 
•D, 100 

DKOPCiNEwTST, AOUC 
'A, 100 

AODClNEwTST^UROPC 
'Tr0 



jDECoOt TABlE 

iFiRST • CHAR TO HE DECOQEU 



I SECOND • CONTROL BITS 
JTMIHO - SET MASK 



iFgURTH - CLEAR MASK 



ICONTROL BITS! 



ClUh 
CZLA 
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141 


004724 


010000 


000000 




21 120 




.WORD 


PH1NTT#0 


143 


004730 


114 


000 




21 140 




.BXTE 


'L»0 


143 


004732 


040000 


000000 




21160 




.WORD 


LOOPOe«0 


144 


004736 


110 


000 




21180 




.BJfTE 


•H,0 |5 a GET wldlH 


149 


004740 


100000 


000000 




21 200 




,*nORD 


HALTOE,0 


1 46 


004744 


116 


000 




21220 




,BXTE 


'N,i) jfe 3 GET LlMh M 


147 


004746 


020000 


00000M 




21240 




,WOKD 


1NHRPT,B 


148 


004752 


120 


000 




21260 




,BXTE 


*P#0 J 7 « GEN TEST ill) 


149 


004754 


000000 


020000 




21280 




,W0BU 


0# INHHPT 


l50 


004760 


103 


000 




21300 




,B¥TE 


'C,0 


l9l 


004762 


000000 


140000 




21320 




.WORD 


0,HALTOE|LOOPO£ 


152 


004766 
004771 


127 

000 


040 

000 


000 

000 


21340 




,8XTE 


'W»40#0i0»0#0 


153 


004774 








21360 


DTENDI 






154 


004774 


000000 






21380 


DECSA^I 


.WORD 





155 


004776 


000000 






21400 


DATAl 


.WORD 





156 


005000 


000000 






21420 


DATA2I 


.WORD 





157 


005002 


000000 






21440 


TEMpri 


.WORD 


iTEf'PORARY PCrUAG tOHD 


l58 


005004 


000000 






21460 


TEMPTI 


.WORD 


jTEMpORAHlf TEST NO, 


159 










21480 








160 










21500 








161 










21520 








162 










21540 


;»#«««««»»««• 




163 










21560 


f ChKW 


THIS 


ROUTINE VALIDATES A "w" CQi^mANU 


164 










21580 






169 










21600 








166 


005006 










CHKwf 






167 










21621 


t 






168 










21622 


f Range 


OF 26 


Thru 132 CHARACTERS IS VALID 


169 










21623 


t 






l70 


005006 


023727 


004776 


000032 






CmP 


DATAr «32 


(8} 


005014 


002404 










BLT 


500028 


(6) 


005016 


023727 


004776 


000204 






CMP 


DATA, #132. 


19) 


005024 


00340J 










BLE 


50003$ 


(6) 


005026 










5000281 






i7i 


005026 


004737 


005100 








JSR 


PCrSELERH 


l72 
(3) 


005032 
005034 


000403 








50003SI 


BR 


50004$ 


173 


005034 


013737 


004776 


016146 






MOV 


DATA, WIDTH 


l74 


005042 










5000481 






175 
(3} 
(2) 


005042 
005042 
005042 


000207 








50000SI 
5000191 


RTS 


PC 


176 










21760 








177 










21780 
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1179 
1180 
1181 
1183 

1183 005044 
tl84 005050 

1185 005052 

1186 (^05060 
1187 



105737 
100375 
ll773t 
000207 



177564 

011106 177566 



21820 
21840 
21860 
21880 

21920 
21940 
21960 
21980 



fECHO CONSOLE KEYBOARD ECHO RuUTInE} 
I »»«»««««'»«»« 



PIH HAS ADPH OK CHAH 



tstb 

BPL 

MOVB 

RTS 



P«TPS 
ECHO 

ePTH,P#TPB 
PC 
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1189 








22020 


sSfiTTL EPBOP & REPORT HOUTINES 










22040 


!«««««#«««««» 


1 1 Qi* 








22060 


iCMOEKR Routine to hanDle invalio connanus 


1 192 








220B0 


1 


1 l9J 








22100 






005062 








(jmDERR I 


1 1 93 


0i^S062 


01 2700 


02001 7 




MOV lERl yR0 




005066 


1 04000 




22160 


TlfPE 


1 1 » » 


aa^utl (A 


01 2700 


020 1 3 J 




HQV #RDXfH0 


1 1 98 


10109 V r 9 






_ _ _ 


TXPE 




WDV ' O 








500008 1 


(3) 










50001 S 1 


12) 


Lt £A SI Ol 7 fft 


OHA(M lot 7 
101010 iSV f 






RTS PC 


1200 








22240 


1 •«««««»««#»« 


1201 








22260 


fSELEBR ROUTINE TO HAnO^E SElECTIO*! PBROBS 


1202 








22280 




1203 








32300 




1204 


005100 








SEliERRl 


120S 


005100 


012700 


020032 




MOV «ER2»H0 


1206 


005104 


104000 




22360 


TKPE 


1207 


005106 


012700 


020123 




MOV »RDy#B0 


I20i 


005112 


104000 




22400 


TlfPE 


1209 


005114 


012737 


016114 


016164 


MOV eiNBUrrPTK 


1210 


00Si22 








50000$! 


(3) 


005122 








50001 3| 


(2) 


005122 


000207 






RTS PC 


1211 








22460 
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1213 










22500 






1214 










32520 


lERRgRS ERROR 


LOGGER ANP TYPEoUT ROUTINE 


1213 










32540 






1216 










22560 


1 •»«««*»««««« 




1217 










22580 






1218 


003124 










ERRORI 




1219 


005124 


005037 


005434 






CLR 


ENRSAV 


1220 


005130 


032737 


020000 


001364 




BIT 


#lNHRPT#PCrLAG 


(9) 


005136 


001044 








UNE 


500028 


1231 










22642 


1 




1232 










22644 


iCONVfcpT TEST 


NO, For OUTPUT 


1223 










22646 


t 




1224 


005140 


013746 


016154 






MOV 


INTeST,«(SP) 


1225 


005144 


013746 


000002 






MOV 


»2#«(SPJ 


1226 


005150 


012746 


020001 






MOV 


»ER0+16.»-C5P) 


1227 


005i54 


004737 


007566 






JSR 


PC#02ASC 


1238 










22722 


1 




1239 










22724 


JCONVEPT ERROR NO, FOP OUTPUT 


1230 










22726 


f 




1231 


005160 


U3737 


002032 


005434 




MOVb 


cflags^ebrsav 


1232 


005166 


013746 


0M5434 






MOV 


ERR5AV,-CSPJ 


1233 


0051 72 


012/46 


000003 






HOV 


»3»-CSP) 


1234 


005176 


012746 


017770 






MOV 


•ER0+7»-lSP) 


1235 


005202 


004737 


007566 






wISR 


PC#02ASC 


1236 










22822 


I 




1237 










22824 


ICONVEPT LINE 


NO, FOR OUTPUT 


1238 










32826 


» 




1239 


005206 


013746 


016160 






MOV 


0NLIN»-(SP) 


1240 


005212 


013746 


000002 






MOV 


»2#-(SP) 


1241 


005216 


012746 


020011 






MOV 


• ER0<f24,f-(SP) 


1242 


005222 


004737 


007566 






vJSR 


PC»02ASC 


1243 


005226 


013 700 


017761 






MOV 


#ER0,R0 


1244 


005232 


104000 






22940 


TYPE 




1245 










22960 


1 




1246 










22980 


1 CLEAR THE ERROR FLAG 


1247 










23000 


1 




1248 


005234 


042737 


100377 


002032 




BIC 


»MERRN,CFLAGS 


1249 










33040 


J 




1250 










23060 


I GET The POINTER SUPPLIED Tme PROGBftM 


1231 










23080 


} AND PRINT THE ERROR DESCRIPTION MSG, 


1232 










23100 


1 




1233 


003242 


013700 


002034 






MOV 


TSCPTR»R0 


1254 


005246 


104000 






33140 


TlfPC 




1233 


005230 










3000291 




1236 


005250 


003037 


005434 






clb 


ERR5AV 


1257 










23200 


1 




1238 










23220 


1 UPDATE THE 


ERROR COUNT FOR THE FAILING LINE 


1239 










23240 


t 




1260 


005254 


013737 


016160 


00S434 




MOV 


onlin»erbsav 


1261 


0H5262 


006337 


005434 






ASL 


erbsav 


(7) 


005266 


006337 


005434 






ASL 


ERRSAV 


17) 


005272 


006337 


003434 






ASL 


errsav 


1262 


005276 


062737 


016170 


005434 




ADD 


•LIN00, ERRSAV 


1263 


005304 


005277 


000134 






INC 


lERRSAV 


1264 










23340 


} 




1265 










23360 


|IF LOOP ON ERROR 15 SET , MAKE THE 
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1266 










23380 


f BEIUPN ADDRKS5 OF THE IeST OODt 


1267 










23400 


1 THE TEST CONTPOLLEK MILL USE THE OLD 


1268 










33420 


1 HPC TO RE-DO 


THE SUBTEST, 


1269 










23440 






1270 


005310 


032737 


040000 


001364 




' BIT 


#L0OPOE» PCFLAG 


(9J 


5*05316 


001403 








BtQ 


50003$ 


i27l 


009320 


05276S 


000001 


000010 




BIS 


#8ITt)#BPC(Rb) 


1272 


003326 










S0003S I 




1273 










23520 


1 




1274 










23540 


J See if line 


ABORT FLAG IS SET 


1273 










23560 






1276 


003326 


032777 


000020 


000100 




BIT 


#ABO»?ERBSAV 


C9) 


005J34 


001431 








BEU 


50004$ 


U77 










23600 


1 




1278 










23620 


t IF ABORT IS 


SET DESELECT THE LINE 


1279 










33640 


1 UNLESS IT'S 


THE ONLY ONE BEING TESTED 


1280 










23660 


1 




uei 


005336 


032737 


000040 


001364 




BIT 


»MULTI#PCFLAG 


(9) 


005344 


001417 








BEU 


50005S 


1283 


009346 


042777 


000377 


000060 




BIC 


«SEL|» J7 /,8ERRSAV 


1283 


005354 


013746 


016160 






MOV 


ONLIN,«>(SP) 


1284 


005360 


012746 


000002 






MOV 


#2#''CSPJ 


1289 


005364 


012146 


020270 






MOV 


•DRli-tSPJ 


1286 


005370 


004737 


007566 






JSH 


PC#02ASC 


1287 










23800 


i 




1288 










23820 


t NOTIFY OPERATOR THAT UNfc WftS pROPPED 


1289 










23840 


1 




1290 


005374 


012700 


020242 






MOV 


#DR0iH0 


1291 


005400 


104000 






23880 


TYPE 


1292 










23900 


I 




1293 










23920 


J IF TESTING ONLY ONE LINK OONOT ALLO-^ IT TO 8E OESeLEC^EU 


1294 


005402 


000406 








BR 


50006S 


(3) 


009404 










5000581 




129S 


005404 


092777 


000200 


000022 




BiS 


»SELf 9ERRSAV 


1296 


005412 


042777 


000020 


000014 




BIC 


#AB0«9ERRSAV 


1297 


005420 










S0006SI 




1298 


009420 










50004$! 




1299 










24040 


» 




1300 










24060 


1 HALT HERE IF 


HALT ON ERROR iS SET 


ii01 










24080 


1 




1303 


005420 


032737 


100000 


001364 




BIT 


»HALT0E#PCFLAG 


(9) 


005426 


001401 








BEO 


500075 


1303 


005430 


000000 






34120 


HALT 




1304 


005432 










S0007SI 




1309 


005432 










5000051 




(3) 


005432 










5000181 




(2) 


005432 


000207 








BT5 


PC 


1306 










341H0 






1307 


005434 


000000 






24200 


ERRSftVl .WORD 





1108 










24220 






1309 










24240 


;«»*»•«»»««»#«*««««»«««««#««*»«*«»««««««•««««»«»»«««»»«««««»»*«« 


1310 










24260 


1 REPORT 


THIS RQUTlwE HAnDlES EwD UF TEST AwD 


1311 










24280 


1 


END OF PASS REPORTS, 


1312 










34300 


}•*««»«««•««»*««««»««««««««««««««««««««»««»«*»*««»•«««««.*»«»«»*• 


1313 










24320 






1114 


005436 










REPOPTI 
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1315 










24345 


t CHECK FOR END OF TEST CONDITION 


1316 










24350 


1 




1317 


005436 


032737 


040000 


002032 




BIT 


«EOT#CFLAGS 


C9J 


009444 


001423 








BEU 


500025 


1318 










24365 


1 




1319 










24370 


J CONVERT TEST 


NO, FOR OUTPUT 


1320 










24375 


> 




1331 


005446 


013746 


016154 






MOV 


XNTEST»-(SPJ 


1322 


005452 


012M6 


000002 






MOV 


«2#-(SPJ 


1323 


005456 


012M6 


020210 






MOV 


»EOTM*iB, #"CSP) 


1324 


005462 


0^44737 


007566 






J5R 


PC»02ASC 


1325 










24445 


f 




1326 










24450 


i Send end of 


TEST MESSAGE 


1327 


005466 


042/37 


040000 


002032 




BIC 


»EOT,CFLAGS 


1328 










24495 


1 




1329 


005474 


012700 


020166 






MOV 


»EOTM»R0 


1330 


005900 


004737 


007010 






JSR 


PCMTYPE 


1331 


005504 


012700 


01 7051 






MOV 


»LJf R0 


1332 


005910 


004737 


007010 






J5R 


PCMlYPfc 


1333 


005514 










5000251 




1334 










24505 


1 




1335 










34510 


I CHECK FOR END OF PASS CONniTlUM 


1 336 










24515 


t 




1337 


005514 


032737 


0;<0000 


002032 




BIT 


»eop»cflags 


(9) 


005522 


001425 








BEQ 


500035 


1338 


005924 


013746 


016154 






MOV 


1NTEST#-CSP) 


1339 










24545 


f 




1340 










34550 


iCONVbRT TEST 


NO, FOR OUTPUT 


1 J4l 










24555 


t 




1342 


005530 


012746 


000002 






MOV 


»2r-(SP) 


1 343 


005534 


012746 


020161 






MOV 


«E0PM*19,,-(SP) 


1344 


005540 


004737 


007966 






JSR 


PC,02A5C 


1349 










24605 


1 




1346 










24610 


1 CONVERT PASS 


NUMBER FOR OUTPUT 


1347 










24615 


» 




1348 


005544 


013746 


002036 






MOV 


TSCCNT|-(8PJ 


1349 


005550 


012746 


020145 






MOV 


#E0PM-l'7#»(SP) 


1390 


005554 


004/37 


010006 






JSR 


PC#BIN2DA 


1391 










24685 


1 




1352 










24690 


1 Send end of 


Pass message. 


1393 










24695 


1 




1354 


005960 


012700 


0201 36 






MOV 


»EOPM»R0 


1359 


005564 


004737 


007010 






JSR 


PC#MTYPE 


1356 


005570 


042737 


020000 


002032 




BIC 


tEOPfCFLAGS 


1357 


005976 










5000351 




1358 


005576 










5000051 




(3) 


005976 










5000111 




(2J 


005976 


000207 








RT5 


PC 


1399 










34800 






1360 










34820 






U61 










24840 






1362 
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U63 

1 j63 
1366 
1 J67 



00070 
000S>0 
00110 
00U0 



f SETlO ROUTINE TO SET 1/U MODK 
I ««»««*«#»»»«#•« 



1J&8 


005600 








SETiOl 






1369 


00S600 








50002I1 






1370 


00560fri 


032737 


000001 


001364 




bll 


»FLACl#PCrLAG 


(9) 


005606 


001003 










500038 


1371 


00S610 


0S2737 


00000J 


001364 




BIS 


«riiAGU#f LAG2#PCrLAG 


1372 


00!>616 








50003$t 






1373 


005616 


032737 


000001 


001364 




BIT 


»rLACl#PCFLAG 


(7) 


005624 


00176S 








BEQ 


500028 


14) 


005626 


032737 


000002 


001364 




BIT 


»rLAC2#PCriiAG 


C7J 


009634 


001761 








BEQ 


500028 


1374 


005636 








S00008I 




U) 


005636 








5000111 






12) 


005636 


000307 








PTS 


PC 



00320 
00340 
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1378 










00700 




,SBTTL 


INTERFACE SIZER 


ROUTINES 


1379 










00900 












1380 










00950 


IBUILD 


SUBROUTINE TQ BUILD THE 


DEVICE 


TABLE USED 


1381 










01000 


1 


IN MULII LINE MODE, 








1382 










01050 












1383 


005640 


012737 


000003 


000066 


01100 


BlULDI 


HOV 


SBPTf 66 


}SET 


UP 


COwSOLfc IWAP 


1184 


005646 


012^37 


006120 


000004 


01150 




MOV 


«48>MACHER 


ISET 


UP 


NXM TRAP 


1385 


005654 


012701 


0l6l7i4 




01200 




MOV 


«LlN00,hi 








1386 


00S660 


012137 


016126 




01220 


ISI 


MOV 


IR1)4#DLFLAG 








1387 


005664 


012137 


016130 




01240 




MOV 


{Ri)^#DLAUR 








1388 


00567((5 


012137 


016132 




01260 




MOV 


IRl J+,DLVEC 








1389 


005674 


012137 


016134 




01280 




MOV 


(RU + #ULOTH 








1390 


005700 


013737 


016130 


016140 


01400 




MOV 


DLADRyUVCTXS 








1391 


005706 


062737 


000004 


016140 


01430 




ADD 


#4,DVCTX8 








1392 


005714 


013737 


01614^' 


016142 


01440 




MOV 


DVCTXSiDVCTXB 








1393 


005722 


062737 


000002 


016142 


01450 




ADD 


»2»0VCTXB 








1394 


005730 


U3737 


016135 


016160 


01500 




MOVe 


DL0TH*1,0NL1N 








1395 


005736 


005777 


010166 




01750 




TST 


iDLADR 






}THY TO ACCESS UVC, 


1396 


005742 


052)37 


100000 


016126 


01850 




BIS 


»DLP,DLFLAG 






JSET UVC PHESENl FLAG 


1397 


005750 


012737 


000 300 


007564 


0l90if 




MOV 


»300#DCLAYT 






J SET UP FOH UELAX 


1398 


005756 


112777 


000076 


010156 


01925 




MOVB 


»'>#»0VCTXB 






JTXMIT A CmAHACIEH 


1399 


005764 


052777 


000100 


010146 


01950 




BIS 


«100#»DVCTXS 






iSET OVC TX INTR tWAHLE 


1 400 


005 772 


104006 






02050 




DELA^R 








fWAII FOH iNTEHHUPr 


1101 


005774 


005737 


016132 




02100 




1ST 


DLVEC 






ZLmO no KJIEKKUPf UCCUHtD 


1402 


006000 


001433 






02125 




BEQ 


28 






;NQ INTERRUPT «• BHANCn 


1403 










02150 












iniHERwISE DLVtCsAtfUK THAT 


1404 










02200 












JUVC INTEKRUPrtU 10 VAA If-IHAF 


1405 


006002 


052737 


000200 


016126 


02300 




BIS 


»SEL,OLFLAG 






ISET SELtCIELt FLAG 


1406 


0060IM 


013N1 


016134 




02350 


331 


MOV 


DL0TH»-CRl) 








1407 


006014 


013741 


016132 




02400 




MOV 


DLVECr-CRl) 






J PUT ''fEw INFORMATION 


1408 


006020 


013^41 


016130 




02450 




HOV 


ULADR,-lRl) 






llNTO LINE TABLE 


1409 


006024 


013741 


016126 




02500 




MOV 


DLFLAG#»(R1 ) 








1410 










02550 














1411 


006030 


062 701 


000010 




02600 




ADO 


«10»R1 






lJUMP POINTER TO i-^EXl unt 


1412 


006034 


020t27 


016770 




02650 


SSI 


CMP 


Rl# »TABENU 






lALL DUNE ? 


1413 


006040 


001307 






02700 




BNE 


18 






jNU . UU fiEXl LlNt 


1414 


006042 


162701 


000010 




02750 


68t 


SUB 


»10#Kl 






ICKECH LAST ENTKX 


1415 


006046 


0057U 






02800 




TST 


(RD 






iFUH LINE PRESENT 


1416 


006050 


100403 






02850 




BMI 


78 








1417 


006t)52 


012711 


177777 




02900 




MOV 


»-l» (Rl) 






|IF NOT SET IT fO Ef''-i> 


1418 


006056 


000771 






02950 




BR 


68 






|0F TABLE 


1419 


006060 


012737 


0H0006 


000004 


03100 


781 


MOV 


#6#MACHEH 






IRESET TRAP CAICHEK 


1 420 


006066 


000207 






03150 




RTS 


PC 








1421 


006070 


052737 


000020 


016126 


03200 


281 


BIS 


SABOiULFLAG 






JSET ABORT fLAG 


1422 


006076 


042737 


000200 


016126 


03250 




BIC 


DSELfDLFLAG 






fMAKE SURE LINE IS DESELEC I'EO 


1423 


006104 


004737 


005124 








J5R 


PC* ERROR 








1424 


006110 


012700 


020055 




03350 




MOV 


»fcR7#R0 






;SU ERROR MSG 


1425 


006114 


104000 






03400 




TYPE 








ITYPE MSG ON CONSOLE 


1426 


006II6 


000/34 






03450 




BR 


38 






|FIX TABLE ENTRIES 


1427 










03500 














1428 


006120 


062706 


000004 




01550 


481 


ADD 


I4»SP 


ieRase 


INTR FROM STACK 


1429 


006124 


000^43 






03600 




BR 


58 






|GET NEXT LINE ENTRY 


1430 










03650 














1411 










03700 












1432 










03750 


I CATCH 


REPLACES TRAP CATCHER FROM 


100 To 1000 . 


1431 










03800 
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1434 


006136 


01270*' 


001000 


0J8S0 


caTchi 


MOV 


#10001 K0 


J ISTAHT AT 


1439 


006132 


0050410 




03900 


|8l 


CLK 


-IB0) 


jPUT HALl IN PC+2 


1436 


006134 


010037 


016100 


03930 




MOV 


B0rTEMP 




1437 


006140 


013740 


016100 


04000 




MOV 


TEMP,»CH0J 


)PUT PC+2 PC 


143i 


006144 


020027 


000100 


04050 




CMP 


H0f #100 


iriN? 


1439 


0061S0 


002370 




04100 




BGi; 


18 


|N0 * DO MUHt 


1 440 


006152 


012737 


003466 000 


060 04200 




MOV 


«HEADKBf f 8TKV 


pSU CUNSULt 


1441 


006160 


000207 




042S0 




RT5 


PC 




1442 








04300 










144{) 








04500 
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1451 










05402 






1452 










05450 


.SBTTL 


EMT HANDLER 


1453 










05500 


;«»«•««« 


«««»««»«»««««»««««*«»#«• 


1454 










05550 


iTHiS SECTION < 


:0NTAINS THE HANDyER AnD mqSI RuUHnES ACCESSti? 


1495 










05600 


|BY TKAP5 THROUGH LOCATION Jio, 


1496 










05650 




««««**»»«»*««««*««»««««» 


1457 










05700 






1458 


006162 








05750 


emTposi 




(4) 


006162 


01 1637 


016112 






MOV 


(8PJ»TEMp+}2 


1459 


006166 


162737 


000002 


016112 


05800 


SUB 


»2#TEMP+12 IGET REAL PC 


1460 


006174 


017737 


007712 


016110 


05850 


MOV 


§TEMP4-12»TEHp>l-ik9 ;GET EMT IHSlHUCHOiJ 


1461 


006202 


042737 


104400 


016110 


05950 


BIC 


#104400, IEMP-1.10 JMASK INSTfi BUS 


1462 


006210 


062737 


006230 


0161 10 


06000 


ADD 


»EMTaBL»IEMP"H0 fADD TftBLE AUOH 


1463 


006216 


017737 


007666 


016112 


06050 


MOV 


PTEMP+10,TEMP+12 


1464 


006224 


000177 


007662 




06100 


JMP 


9TEMP+12 


1465 










06150 






1466 










06200 


,EVEM 




1467 


006230 


006240 






06250 


EMTABLl ETYPE 


fNSOLE TYPE ROUTINE 


1468 


006232 


007212 






06300 


PRTLTB 


JLINE TABLE PRINfEH 


1469 


006234 


007162 






06350 


INTRAP 


|DL INTERRUPT CftlCHER 


1470 


006236 


007930 






06400 


DELAlfM 


}DEtiA¥ ROUTINE 
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H72 










06690 




gSBTTLi 


I/O DRIVERS 




1473 










06700 


;••#«•«••«#«• 






1474 










06790 


)CTYPt 


CONSOLE 


OUTPUT Routine;, 


ENTER WITH ADDRESS QF 


1475 










06800 


r 


DATA IN 


R0, NULL TERMINATES OUTPUT, 


14 76 










06650 


1 ••»•*«*«*««« 






1477 










06900 










1479 


006^40 


10S710 






06950 


CTyPEl 


TSfB 


{R0J 


fCHECK FOR NULL 


1479 


006^43 


001406 






07000 




BEQ 


38 


lEXIT ROUTINE 


1480 


006;i44 


101737 


177964 




07050 


111 


TSTB 


fiTPS 


ICHECK FOR TRANSMIT Rfe;ADX 


1481 


006:150 


100379 






07100 




BPL 


19 


fWAIT 


1482 


00^252 


112037 


177566 




07150 




MOVB 


CR0) + #?(»TPB 


ITRANSMII CHARACTER 


1483 


006296 


000770 






07200 




BR 


ETlfPE 


|GET NEXT CHAR 


1484 


006;!|60 


109737 


177S64 




07250 


381 


TSTB 


81 TPS 


fWAIT TILL ALL DONE 


148S 


006264 


100379 






07279 




BPL 


39 




1486 


006266 


000002 






07287 




BTl 




1 EXIT.,, 


1487 










07300 










1488 










07350 










1489 










07400 








1490 










07490 


imCChu 


t&rmxnAl output routine 


w SINGLE CHAR 


1491 










01500 


1 


CHAR IN 


R2 




1492 










07550 


1 


INTERRUPT DRIVEN ALL LINES 


149J 










0)600 








1494 


006270 


010337 


006646 




07650 


MECHOf 


MOV 


R2iM5AVE 




1499 


006274 


010446 










MOV 


R4i-(5PJ 




1496 


006276 


012702 


020434 




07750 




MOV 


•STACK2»R2 


IINITIALIZE STACK2 


M97 


0063<i»2 


003037 


020670 




07B00 




CLR 


ENDS 


IZERO COUNT 


1493 


006J06 


012704 


020574 




07850 




MOV 


»STACK3»R4 


IINITIALIEE STACK3 


1499 


006312 


013732 


016132 




07900 


111 


MOV 


DLVEC# CR2) + 


|GET THE BASE VECTOR AUOR 


1300 


006316 


013737 


016144 


016190 


07950 




MOV 


TXVEC^SAVE 


ISAVE THE VECTOR 


1501 


006324 


062737 


000002 


016150 


08000 




ADD 


#2f SAVE 


1 


1502 


006332 


013777 


0161S0 


007604 


08050 




MOV 


SAVE,PTXVEC 


|PUT ADPR+2 INTO ADOR 


1^03 


006340 


012777 


000004 


007602 


08100 




MOV 


•lOTrdSAVE 


fPUT TRAP INTO AD0R#2 


1504 


006346 


012737 


000310 


007564 


08150 




MOV 


»200,«DELAYT 


|WA1T FOR MS, 


1S0S 


006354 


113777 


006646 


007960 


08200 




MOVB 


MSAVE,8DVCTXB 


|PUT CHAR IN BUF REG 


1506 


006362 


012777 


000100 


007550 


08250 




MOV 


«100,9DVCTXS 


lENABLE IX INTERRUPT 


1507 


006370 


009237 


020670 




08300 




INC 


ENDS 


lADD 1 TO INTR PENDING COUNT 


1508 


006374 


004737 


002110 








JSR 


PC»iaNMON 




1509 


006400 


032737 


000400 


001364 


08400 




BIT 


ILDONEfPCFLAG 


lEND or DVC LIST 7 


ist0 


006406 


001741 






08450 




BEQ 


19 


|N0 DO THIS LINE 


1511 


006410 


042737 


000400 


001364 


08500 




BIC 


•LDONErPCFLAG 


1512 


006416 


010237 


006650 




08550 




MoV 


R2#MSAVE+2 


fSAVE STACK2 POINTER 


1513 


006422 


104006 






08600 




DELAlfR 






1314 


006424 


00S737 


020670 




08650 




TST 


ENDS 


fALL PENDING INTERRUPTS SHOULD 


1515 


006490 


001004 






08700 




BNE 


39 


|BE COUNTED DOWN Bt TXTRAP, 


1516 


006432 








08750 


1211 








(4) 


006432 


012604 










MOV 


(SPH,R4 




1517 


006434 


013702 


006646 




08800 




MOV 


MSAVEyR2 




1518 


006440 


000207 






08850 


281 


RTS 


PC 


lEXlT,,, 


1319 


006442 


010437 


006652 




08900 


3$l 


MOV 


R4f MSAVE<^4 


iSAVE STACK 3 LIMIT 


1520 


006446 


012704 


020574 




08950 




MOV 


»STACK3rR4 


1 RESET STACK3 POINTER 


1521 


006492 


012702 


020434 




09000 




MOV 


#STACK2»R2 


1 RESET SIACK2 POINTER 


1522 


0064S6 


021224 






09050 


481 


CMP 


CR23»(R4)+ 


1 VECTOR MATCH ? 


1523 


006460 


001404 






09100 




BEQ 


59 


I YES - BRANCH 


1524 


006462 


020437 


006652 




09150 




CMP 


R4#MSAV£-f4 


ISTACK END 7 


1325 


006466 


001403 






09200 




BEQ 


68 


|Y£S - BRANCH 


1526 


006470 


000773 






09250 




BP 


49 


^COMPARE NEXT VfcCT, 
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1527 
1528 
1529 
1330 
1331 
1332 
1533 
1534 
1535 
1536 
1937 
1538 
1539 
1540 
1541 
1342 
1543 
1544 
1549 
1546 
1947 
1548 
1549 
1590 
1531 
1332 
1953 
1554 
153S 
1596 
1557 
1558 
1559 
1560 
1561 
1362 
1S6J 
1564 
1565 
1566 
1367 
1368 
1569 
1570 
1571 
1572 
1S73 
1374 
1579 
1576 
1977 
1578 
1579 
(9) 
I98@ 

isii 



006472 
006474 
006476 
006502 
006906 
006910 
006914 
006916 
006922 
006924 
006526 
006532 
006534 
006542 
006946 
006550 
006596 
006560 
006566 
006574 
006600 
006604 
006610 
006616 
006624 



006632 
006636 
006644 
006646 



009012 
005044 
063702 
020237 
001403 
012704 
000760 
012702 
005712 
001003 
062702 
000773 
012737 
027712 
001404 
062737 
000771 
062737 
017737 
109037 
000337 
004737 
012737 
112737 
052737 



004737 
042737 

000672 

000000 



006654 
006654 
006662 
006670 
006576 
006704 
006712 
006716 
006724 
006730 
006732 
006736 
006740 
006746 



013737 

062737 
012777 
012777 
012737 
110277 
012777 
00S237 
104006 
00S737 
001413 
012737 
0S3737 



11 120 




I/O DRIVERS 












09300 


591 


CLR 


(H2} 


I ERASE VECT OJ'l 






09350 




CLR 


-CR4) 


lERASE VECT IN 


000002 




09400 


6SI 


ADO 


«2#H2 


jMOVE STACK POINTER 


006650 




09490 




CMp 


R2r«5AVC+2 


lEND or OUT STACK ? 






09500 




BEQ 


79 


J YES - GO GET ODD VEClOK 


020574 




09550 




MOV 


iSTACK3»R4 


IRESET 5TACK3 POINTER 






09600 




BR 


49 


jKEEp SORTING 


030434 




09650 


781 


MOV 


#5TACK2#R2 


iRESET S1ACK2 POINTER 






09700 


881 


TST 


(R2) 


fCHECK FOR ^'0N ZERO 






09750 




BNE 


99 




000002 




09800 




ADD 


«2»H2 








09850 




BP 


68 




016174 


006652 


09900 


981 


MOV 


#LIN004-4,MSAVE*4 


|GET VECI FROM TABLE 


000104 




09950 


!0S| 


CMP 


iMSAVE+4# CH2) 


IMATCH ? 




10000 




BEQ 


lis 


lYES THIS LINE IS N,G, 


000010 


006652 


l00Sfe' 




ADD 


»10,hSAVfc+4 


|MOVE POINTER TO ffcXI 






10100 




BR 


109 




000002 


006652 


10150 


1 l9l 


ADD 


»2#MSAVEf 4 


|GET LINE NUMBER 


000060 


016160 


10200 




MOV 


fMSAVE+4»0NLIN 




0l6l6u 




10250 




CLRB 


ONLIN 




016160 




10300 




SWAB 


ONLIN 


lERASE JUNK BITS 


002432 




103S0 




JSR 


PC»MTW 


jMUVE TABLE 10 WORK AHEAS 


0200S5 


002034 


10400 




MOV 


jlER7,TSCPTR 


IPOINT TO ER^OR (*^t&SAUE 


000377 


002032 


10450 




MOVB 


»377#CFLAG5 


jERROR NO, 


100000 


002032 


I050t) 




BIS 


»MERR,CFLAGS 


>SET f.RROR FLAG 






10551 










10600 


1 


ERROR 377 


» 








10650 






005124 








JSR 


PC#ERR0R 




100377 


002032 


10750 




BIC 


»WERRN,CFLAGS 


1 ERASE ERROP DATA 






10800 




BR 


12$ 


fCLEAN HOUSK & EXIT 


000000 


000000 


10850 


M5AVEI ,W0RD 


0f 0»0 





10855 
10856 
10857 



10861 
10863 
10863 
10864 
10865 
10866 



t SECHo SINGLE LINE ECHq RqUTINE 
I ENTER WITH CHAR IN R^ 

> TRANSMITTS TO DVC VIA I/O DRIVER ^ORK AREA 



SECHO I 



016144 


016150 


MOV 


TXVECiSAVE 


000002 


016150 


ADD 


#2f SAVE 


007510 


007246 


MOV 


«SlRAP»iTXVEC 


000200 


007244 


MOV 


#PRl4f PSAVE 


000144 


007564 


MOV 


#100,»D£LAYT 


007224 




MOVB 


R2»iDVCTXB 


000100 


007214 


MOV 


#100t@DVCTXS 


020670 




INC 


ENDS 




10877 


DELAYR 




020670 




TST 


ENDS 






BEQ 


900023 


02005S 


002034 


MOV 


#SB7»TSCPTR 


100376 


002033 


BIS 


#376|iMERR,CFLAG5 
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1494 
143S 
1U6 
1437 
1436 
1439 
1 440 
1441 
1442 
144() 



006126 
006132 
006134 
006140 
006144 
006150 
006152 
006160 



012701^ 
005040 
010037 
013740 
020027 
002370 

012737 003466 
000207 



001000 



016100 
016100 



03850 



03930 
04000 
04050 
04100 
04200 
04250 
04300 
04500 



catchi 

ISI 



MOV 
CLK 
MOV 
MOV 
CMP 
bGl 
MOV 
RTS 



#1000»H0 

-CP0) 

H0,ti;mp 

TEHP,«(H0) 

H0,»100 

18 

»BEADKt>,f »TKV 
PC 



n START AT 1000 
I PUT HALT IN PC*'2 

I PUT PC + 2 PC 
}FIN? 

|N0 " DO MUHE 
|SU CUNSOLt 



CEliArA0 tA36 TERM tSI MAC3C11 30A(1052J 03-JAN«.77 00101 PAGE 2««3 
CEL,ArA,Pll 03"jAh»78 11120 InTE-PFACE SiitEB ROUTINES 



1451 










05400 






1452 










05450 


,SBTTL 


EMT HANDLER 


1453 










05500 


;«»««««* 


**««*«««•*«««*«««•*««»«» 


1454 










05550 


}THis SECTION Contains the HAwObER and most routines ACCEsstD 


1455 










05600 


}B¥ TKAPS through LOCATION 30, 


1456 










05650 




««»«««»»«»*«««««««««»«#» 


1457 










05700 






1458 


006162 








05750 


EMlBOSi 




(4) 


006162 


01 1637 


016112 






MOV 


{8PJ,TEMp+|2 


1459 


006166 


162737 


000002 


016112 


05800 


SUB 


#2»tEMP+i2 iGET REAL PC 


1460 


006174 


017737 


007712 


016110 


05850 


MOV 


iTEMP+i2»TEHP-»-i0 ;GET EMT INSIHUCIIOn 


1461 


006202 


042737 


104400 


016U0 


05950 


BIC 


#104400, IBMP + 10 IMASK INSTR BUS 


1462 


006210 


062737 


006230 


0161 10 


06000 


ADD 


»emTabl»Temp+10 I add Table audR 


1463 


006216 


017737 


007666 


016112 


06050 


MOV 


PTEMP + i0,TEMP-l-12 


1464 


006224 


000177 


007662 




06100 


JMP 


gTEMPfi2 


1465 










06150 






1466 










06200 


• EVEN 




1467 


006230 


006240 






06250 


EMTABLl ETXPE 


fNSOLE TYPE ROUTINE 


1468 


006232 


007212 






06300 


PRTLTB 


}LINE TABLE PRiNTEh 


1469 


006234 


007162 






06350 


INTRAP 


|DL interrupt CAICHER 


1470 


006236 


007530 






06400 


DEIiA5fM 


IDELAY ROUTINE 
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SEU kJ^bS 



H72 










06630 




(SBTTL 


I/O DRIVERS 




1473 










06700 








i474 










06750 


lETYPE CONSOLE 


OUTPUT ROUTINE, 


ENTER WITH ADDRESS OF 


J475 










06800 


1 


DATA IN 


R0, NULL TERMINATES OUTPUT, 


1476 










06830 


I ••»•*«««•«*• 






H77 










06900 










1478 


006;j40 


103710 






06930 




TSTb 


(R0) 


ICHECR FOR NULL 


1479 


006^43 


001406 






07000 




BEQ 


38 


{EXIT ROUTINE 


1480 


006^44 


105737 


177S64 




07050 


l«l 


TSTB 


8ITPS 


ICHECK FOR TRANSMIT READX 


1481 


0064130 


100373 






07100 




BPL 


18 


yWAIT 


1482 


006292 


112037 


177566 




07150 




MOVB 


(R0)+#&8TPB 


ITRANSMIT CHARACTER 


1483 


006236 


000770 






07200 




BR 


ETYPE 


|GET NEXT CHAR 


1484 


006260 


105737 


177364 




07230 


3il 


TSTB 


P»TPS 


|WAIT tlUh Mh DONE 


1483 


006264 


100373 






07275 




BPL 


38 




1486 


006266 


000002 






07287 




HTl 




1 EXIT,,, 


1487 










07300 










1488 










07350 










1489 










07400 








1490 










07450 


imechu 


TERMINAL OUTPUT ROUTINE 


SINGLE Char 


1491 










07300 


1 


CHAH IN 


H2 




H93 










07330 


1 


INTERRUPT DRIVEN ALL LINES 


1491 










07600 


)«•«««*««***« 






1494 


006270 


010237 


006646 




07650 


MECHOt 


MOV 


R2»MSAVE 




1499 


006274 


010446 










MOV 


R4i-(5P) 




1496 


006276 


012702 


020434 




07750 




MOV 


ISTACK2rR2 


lINITlAtIZE STACK2 


»497 


006302 


003037 


020670 




07800 




Ct.R 


ENDS 


IZERO COUN'I 


1498 


006306 


013704 


020374 




07850 




MOV 


#STACK3#R4 


IINITIALIEE STACK3 


1499 


006312 


013732 


016132 




07900 


181 


MOV 


DLVEC# (R2)4 


|GET THE BASE VECTOR ADDR 


1S00 


006316 


013737 


016144 


016150 


07930 




MOV 


TXVEC»SAVE 


ISAVE THE VECTOR 


1501 


006324 


063737 


000002 


016150 


08000 




ADD 


»2#SAVE 


1 


1S02 


006332 


013777 


016150 


007604 


08050 




MOV 


SAVE,9TXVEC 


|PUT ADDR42 INTO ADOR 


1^03 


006340 


013777 


000004 


007602 


08100 




MOV 


lIOTfiSAVE 


|PUT TRAP INTO ADOR+2 


1504 


006146 


013737 


000310 


007564 


08150 




MOV 


•200,»DELAYT 


|WAIT FOR 200 MS, 


1905 


006334 


113777 


006646 


007360 


08200 




MOVB 


MSAVE,8DVCTXB 


|PUT CHAR IN BUF REG 


1506 


006362 


012777 


000|00 


007350 


08350 




MOV 


»100,»DVCTXS 


fENABLE TX INTERRUPT 


1307 


006370 


003237 


020670 




08300 




INC 


ENDS 


lADD 1 TO iNfR PENDING COUNT 


1508 


006374 


004737 


002110 








JSR 


PC#I»IMMON 




1509 


006400 


032737 


000400 


001364 


08400 




BIT 


ILDONEfPCFLAG 


I END OF OVC LIST 7 


1510 


006406 


001741 






08450 




BEQ 


IS 


|N0 DO THIS LINE 


ISll 


006410 


043737 


000400 


001364 


08300 




BIC 


•LDONEfPCFLAG 




1512 


006416 


010237 


006650 




08530 




MoV 


R2#MSAVE+2 


iSAVE STACK2 POINTER 


1313 


006423 


104006 






08600 




DELAYR 






1314 


006434 


005737 


020670 




08630 




TST 


ENDS 


|ALL PENDING INTERRUPTS SHOULD 


151S 


006430 


001004 






08700 




BNE 


38 


}BE COUNTED DOt»iN BY TXTHAP, 


1316 


006432 








08750 


1211 








(4) 


006432 


013604 










MOV 


CSPJ4.»R4 




1517 


006434 


013703 


006646 




08800 




MOV 


h5AVE,R2 




1318 


006440 


000207 






08850 


281 


RTS 


PC 


lEXIT.,, 


1319 


006443 


010437 


006632 




08900 


381 


MOV 


R4,M5AVE+4 


JSAVE STACK 3 LIMIT 


1330 


006446 


013704 


020574 




08950 




MOV 


*STACK3,R4 


1 RESET STACK J POINTER 


1531 


006492 


013703 


020434 




09000 




MOV 


#STACK2#R2 


IRESET STACK2 POINTER 


1522 


0064S6 


021224 






09050 


481 


CMP 


(«2)» (R4)+ 


1 VECTOR MATCH ? 


1333 


006460 


001404 






09100 




BEQ 


58 


»YES BRANCH 


1334 


006462 


020437 


006632 




09150 




CMP 


R41MSAVE44 


ISIACK END ? 


1323 


006466 


001403 






09200 




BEQ 


68 


lYfcS « BRANCH 


1526 


006470 


000772 






09230 




BR 


48 


^COMPARE NEXT VfcCT, 
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1527 
1328 
1529 
1530 
1331 
1333 
1333 
1534 
1333 
1536 
1537 
1338 
1539 
1540 
1541 
1343 
1543 
1544 
1545 
1346 
1547 
1548 
1549 
1350 
1551 
1532 
1333 
1554 
1533 
1536 
1557 
1538 
1559 
1560 
1561 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1570 
1571 
1572 
1573 
1374 
1373 
1376 
1377 
1378 
1379 
(93 
1380 
15ii 



006473 
006474 
006476 
006302 
006306 
006310 
006514 
006316 
006522 
006324 
006326 
006532 
006334 
006542 
006346 
006550 
006336 
006360 
006366 
006374 
006600 
006604 
006610 
006616 
006624 



006632 
006636 
006644 
006646 



005012 
003044 
062702 
020237 
001403 
012704 
000760 
012702 
005712 
001003 
062702 
000773 
012737 
027712 
001404 
062737 
000771 
062737 
017737 
105037 
000337 
004737 
012737 
112737 
052737 



004737 
042737 
000672 

000000 



09300 
09350 



006634 
006634 
006662 
006670 
006676 
006704 
006712 
006716 
006734 
006730 
006733 
006736 
006740 
006746 



013737 
062737 
012777 
012777 
012737 
110277 
012777 
003237 
104006 
003737 
001413 
012737 
§32737 



000002 
006650 



020574 
020434 



016174 

000104 



000010 006632 



000002 
000060 
01 6 16m 
016160 
002432 
020055 
000377 
100000 



005124 

100377 



006632 
016160 



002034 
002032 
002032 



002032 

000000 



09450 
09500 
09550 

09600 
09650 
09700 
09750 
09800 
09850 
09900 
09950 
10000 
l00Sk' 
10100 
10150 
10200 
10250 
10300 
10350 
10400 
10450 
I050t) 
10551 
10600 
10650 

10750 
10800 
10850 
10855 
10856 
10857 
10860 
10861 
10862 
10863 
10864 
10865 
10866 



781 
881 



981 

I0S1 



CLR 

CLR 

ADD 

CMP 

BEQ 

MOV 

BP 

MOV 

TST 

BNE 

ADD 

BP 

MOV 

CMP 

BEO 

ADD 

BP 



llSl ADD 

MOV 
CLRB 
SWAB 
JSR 
MOV 
MOVB 
BIS 

; ««*««**««««#««««•«* 

I ERROR 377 • 

I ««««#•»««»«*««*•*»'» 

JSR PCiERROR 
BIC »MERRN,CFLAGS 
BR 128 
MSAVEI ,W0PD 0»0»0 



CR2) 
-CR4) 
»2#H2 

R2rM5AVE+2 
78 

ISTACKJrR4 

48 

»5TACK2rR2 
(R2) 
98 

»2#H2 
88 

#LIN0044»MSAVE<»>4 
iMSAVE + 4# CR2) 
118 

»l0#hi5AVE + 4 

108 

#2#MSAVE+4 
8M5AVE-f4»ONLIN 

ONLIN 
ONLIN 
PC»MTW 
SER7,TSCPTR 
«377#CFLAG5 
»MERR,CFLAGS 



1 ERASE VECT OiiT 

lERASE VECT IN 

|MOVE STACK POINTER 

I END OF OUT STACK ? 

J YES - GO GET ODD VEClOH 

»R6SET STACK3 POINTER 

IKEEP SORTING 

jRESET SIACK2 POINTER 

fCHECK FOR ^'ON ZERO 



jGET VECT FROM TABLE 

IMATCH 7 

jYES THIS LINE IS N.G, 

JMQVE POINTER TO f'fcXl 



|GET LINE NUMBER 



lERASE JUNK BITS 

JMUVE TABLE 10 WORK AREAS 
fPOINT TO ER^UR MtSSAUfc 
JERROR NO. 
jSfcT f';RROR FLAG 



lERASE ERROR DATA 
jCLEAM HOUSK & EXIT 



}»•*«««•»««»«««« 

t SECHO SINGLE LINE ECHq RqUTInE 
I ENTER WITH CHAR IN R^ 

> TRANSMITTS TO DVC VIA I/O DRIVER ^ORK AREA 



016144 


016130 


MOV 


TXVECSAVE 


000002 


016150 


ADD 


«2f SAVE 


007S10 


007246 


MOV 


•STRAPfPTXVEC 


000200 


007244 


MOV 


IPRl4f 8SAVE 


000144 


007564 


MOV 


•100,»DCLAYT 


007224 




MOVB 


R2»tDVCTXB 


000100 


007214 


MOV 


«100i»DVCTXS 


020670 




INC 


ENDS 




10877 


DELAYR 




020670 




TST 


ENDS 






BEQ 


S0003S 


920055 


003034 


MOV 


iER7»T8CPTB 


100376 


302033 


BIS 


«376tiMERR,CFLAGS 



m 
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1382 


006754 


004737 


005124 






1583 


006760 


042737 


100377 


002032 




1584 


006766 










1585 


006766 


013777 


016130 


007150 




1586 


006774 


005077 


007150 






1587 


007000 


01 3737 


016I60 


016150 




1588 


007006 










(3) 


007006 










(2) 


007006 


000207 








1589 










10900 


1590 










10950 


1591 










11000 


1392 










1 1050 


1593 










11100 


1594 










1 1 150 


1595 










1 1200 


1396 


007010 


112002 






11250 


1597 


007012 


001403 






11300 


1598 


007014 


004737 


006270 






1599 
1600 


007020 
007022 


000773 
000207 






11400 
11450 


1601 










11460 


1603 










11462 


1603 










11464 


1604 










11466 


1605 










11468 


1606 










11470 


1607 










11472 


1608 










11474 


1609 


007024 










1610 


007024 


042737 


004000 


001364 




1611 


007032 


010237 


007564 






1612 


007036 


012777 


000101 


007064 




|613 


007044 


104006 






11480 


1614 










11481 


1615 


007046 


032737 


004000 


001364 




(9) 


007054 


001003 








1616 


007k)56 


052765 


100000 


000004 




1617 


007064 










1618 










11487 


1619 


007^64 


105737 


016160 






(9) 


007070 


001004 








1620 


007072 


042737 


000003 


001364 




1621 


007100 


000402 








C3J 


007102 










1622 


007102 


005077 


007022 






1623 


007106 










1624 


007106 










C3J 


007106 










(2) 


007106 


000207 








1625 










11500 


1626 










11502 


1627 










11504 


1628 










11506 


1629 










11508 


1630 










11510 



J5R 
BIC 

HOV 
CLB 
MOV 



»MEKPN,cr LAGS 

SAVE#»TXVEC 
iSAVE 

0NL1N,SAVE 



50000$! 
50001st 



jMTYPE TERMINAL OUTPUT ROUTINE - LINE TABLE VERSlQW 
f ENTER WITH ADDR OF MSG IN R0 



I «««•««««»•«« 

MTYPEI MOV8 
BEQ 
JSR 
BR 

l$l RTS 



tR0)+»R2 
IS 

PCiMECHO 

MTYPE 

PC 



fGET ChfiR To PRInT 
fEXIT IF NULL CHAR 



|GET NEXT CHAH 
itXlT, , 



I »•«»«*«»««»«««« 

I HEAUIO THIS ROUTINE MONITORS An I/O «t.AO OPKRATIOM 

; »«»«»«»•»»»*«»« 



• OATAIN,PCFLA(; 

R2»DELAYT 

«101»9DLADR 



READIOI 

BIC 
MOV 
MOV 
DELAYR 

I IF NO CHAR BECVD t^ITHlN (R2) SET ERROR FLAG 

BIT #DATAIN»PCFLAG 

BNE 50002$ 

BIS »MERR»MFLAGS(R5J 

5000291 

I IF ON LINE-0 CLEAR I/O MODE FLAGS 

TSTB ONLIN 

BNE 50003$ 

BIC »FLAGU»FLAG2»PCFLAG 

BR 50004$ 



50003$! 

50004S! 
500008! 
50001S! 



clh 



@dladr 



J TYPES TERMINAL OUTPUT ROUTINE 



SlN^iLt LINE 



MACYll 30A(1052) 03-JANw77 00101 PftGE 2"7 



CZLAFA, 


Pll 03 


«JAN»78 


11120 


I/O DRIVERS 






1631 








11512 






1632 








11514 






1633 


007110 


112002 




11516 TYPES! 


MOVB 


CR0) + #R2 IGEI CHAR XO PHliwT 


1634 


007112 


001403 




11518 


BEQ 


IS lEXIT IF NULL 


1635 


007114 


004737 


006654 


11520 


JSR 


PC»SECHO iSEND THE MESSAGE 


1636 


007120 


000773 




11522 


BR 


TYPES 


1637 


007122 


000207 




11524 IS! 


RTS 


PC lEXII 


1638 








11526 






1639 








11528 






1640 








11530 1 


1641 








11532 1 READS 




THIS ROUTlNfc" SETS UP DVC HECVR VECTOR 


1642 








11533 t 




IF THE CURRENT LINE IS NOT HNE-m« 


1643 








11534 




1644 








11536 






1645 








11538 






1646 


007124 






READS! 






1647 


007124 


105737 


01 616ii 




TSTB 


ONLIN 


(9) 


007130 


001003 






BNE 


50002$ 


1648 


007132 


004737 


00560*1 




JSR 


PCiSETIO 


1649 


007136 


000410 






BR 


50003s 


(3) 


007140 






50002$! 






1650 


007140 


010277 


006766 




HOV 


B2#PDlVEC 


1651 


007144 


013702 


016132 




MOV 


DLVEC#R2 


1652 


007150 


062702 


000002 




ADD 


»2#R2 


1653 


007154 


012712 


000200 




MOV 


»PRI4f (R2) 


1654 


007160 






50003$! 






1655 


007160 






50000S! 






13) 


007160 






50001$! 






C2) 


007160 


000207 






RTS 


PC 


1696 








11554 






1657 








11556 







CZLAFAa TESM TST MACYU Jk)ACi032) 0I»JAN»77 00101 PAGE 2"8 

CZLAfAjPli eJ'-JAN^TS 11120 TRAP ROUTINES 



1&39 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
1667 
U6i 
1669 
1670 
1671 
1672 
1673 
1674 
167S 
1676 
1677 
1676 
(2) 
1679 
1680 
1681 
1682 
1683 
1684 
168S 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1693 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1703 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 



007162 005077 006752 

007166 012637 016132 

007172 062706 000002 

007176 162737 000MI0 0l6l32 

007204 005037 007564 

007210 000002 



00731 2 






007212 


013746 


016100 


007216 


013746 


016102 


007222 


01 2702 


016170 


007226 


01 2700 


017676 


007232 


104000 




007234 


005712 




007236 


100406 




007240 


062702 


000010 


007244 


021227 


177777 


007250 


001452 




007252 


000770 




007254 


012237 


016100 


007260 


012246 




007262 


012746 


000004 


007266 


012746 


017743 


007272 


004737 


007566 


007276 


012246 




007300 


012746 


000003 


007J04 


012746 


017752 


007J10 


004737 


007566 


007J14 


012237 


016102 


007320 


000337 


016102 


007324 


013746 


016102 


007330 


012746 


000002 


007334 


012746 


017733 


007340 


004737 


007566 


007344 


012700 


017733 


007J50 


104000 




007352 


105737 


016100 


007356 


001403 




007360 


012700 


020117 


007364 


000402 




007366 


01 2700 


020105 


007J72 


104000 




007374 


000723 




007376 







11595 
1 1600 
U650 
11700 
11750 
11800 
11875 

11900 
U9S0 
12000 
12050 
12100 
12150 
12200 
12250 
12300 
12350 
12400 
12450 



•5BTTL TRAP ROUTINES 
f »•«••««•«*»« 

HNTBAPi USED BSf TABLE BUl^D TO (iET ADOPSSS THAT A L,^^t 

I INTFRPUPT5 TO AN STORE IT IN • DLVtC, 

; TRANSMIT INTERRUPT USED, DLV HAS MAlNT MOfE, 



xnTrapi ClR 

MOV 
ADD 
SUB 
CLR 
RTI 



fOVCTXS 
(SP}4-,DLVEC 
»2»SP 
«10,DLVEC 
OELAYT 



fUlSABLE Thi; i/jfERRUPTS, 

lSP4'2 ADJUST STACK POINTEH 
fADJUST 10 PCVR INTP ADPR 
IRESET TlMfcR 

IGO BACK TO BUlliD HOUTJNfc 



I ««#««««««»«« 

fPRTLTB THIS ROUTINE TYPES THE LINE TABLE ON THE ConSolE 

I DEVICE, DROPPED FLAGS ARE DECODED AND THE 

1 APPROPRIATE INFORMATION IS PRINTED FOR EACH LINE, 

}»»#««««««««« 

PRTLTBI 







MOV 


TEMP,-(5P) 








MOV 


TEMP+2#»(SP) 




12650 




MOV 


»LIN00,R2 


IPOINTER TO iSTART OF TABLE 


12700 




MOV 


#HEADR2f R0 




12750 




TYPE 




fPRINT HEADER 


12800 


isi 


TST 


CR2) 


yLINE PRESENT? 


12850 


BMX 


28 


lYES • BRANCH 


12900 




ADO 


«10»R2 


fMOVE POINTER 10 NEXT ENTRY 


12950 


611 


CMP 


CR2)#»-1 


lEND OF TABLE? 


13000 




BEQ 


109 




13050 




BR 


18 


rYES » BRANCH 


13100 


2SI 


MOV 


(R2)+#TEMP 


jSAVE FLAG WORD 






NOV 


(R2)+»-CSP) 








MOV 


#4#-(SP) 








MOV 


«DLADr«(SP} 




13300 




JSR 


PC#02A5C 


f CONVERT ADDRESS TO AKClI 






MOV 


(R2)+»-lSP) 




13400 




MOV 


«3,-(5P} 








MOV 


#DLV,»CSP) 




13500 




JSR 


PC,02A5C 


iCONVERT LINE NO, 


13550 




MOV 


CR2)+f TEHP+2 




13600 




SWAB 


TEMP+2 








MOV 


TEMP*2#"CSPJ 








MOV 


82»»(SP) 








MOV 


«HN,-(SP) 




13800 




JSR 


PC|02ASC 




13850 




MOV 


$LIN,R0 


JTYPE FORMATTED LINE 


13900 




TYPE 






13950 


381 


TSTB 


TEMP 


{SELECTED? 


14000 




BEQ 


48 


}N0 • BRANCH 


14050 




MOV 


»8i#R0 


ISEND STAR 


14100 




BR 


58 




14150 


4SI 


MOV 


•DR,R0 


ISEND DROPPED MSG 


14200 


SSI 


TYPE 






14250 




BR 


61 




14300 


10Si 
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C2) 007376 012637 016102 

ltl4 007402 012637 016100 

1715 007406 012700 0l7n5l 

1716 007412 104000 

1717 007414 000002 
1718 



14400 
14450 
14500 
14550 



MOV 

MOV 

MOV 

TYPE 

RTI 



(SP3+#TEMP+? 
CSPJ*, TEMP 
•L3»R0 



# 



CZLAFAP LA36 TERM TST HACYH 3MAtl052) 03»JAN«.77 00101 PAGE 2«I0 
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720 
721 
722 
723 
727 

728 0074JI> 

729 007422 

730 007424 

731 007430 

732 007434 

733 007436 

734 007442 

735 007444 

736 007450 

737 007456 
736 007464 

739 007470 

740 007474 

741 007500 

742 007502 

743 007506 
744 

745 
746 
747 
741 
749 
750 
751 
752 
753 
754 

755 0075J0 

756 007510 

757 007514 
75i 007520 

759 007524 

760 007S26 
(3) 007526 
(2) 007526 
761 

762 
763 
764 
768 
769 
770 
771 
772 

773 007530 

774 007534 

775 007536 
(2) 

776 007540 

777 007544 

778 007546 



162716 
011614 
012746 
027614 
001403 
062716 
000772 
162^16 
017637 
062737 
005077 
062706 
005337 
003002 
005037 
000002 



005077 
00533t 
005037 
000002 



005737 
001411 
010J46 

013703 
005303 
001376 



0161 74 

000000 

000010 

000002 
000000 
000004 
006410 



020670 
007564 



006424 
020670 
007564 



14600 
14650 
14700 
14750 
14950 
15000 
1S020 
15040 
15060 
15080 
15100 
15120 
15130 
016100 15140 
016100 15160 
15180 
15200 
15220 
15240 
15260 
15280 
15300 
15500 
15501 
15502 
15503 
15504 
15505 
15506 
15507 
15508 
15509 



15515 



15517 
15518 
15519 
15550 
15750 
15800 
15850 
15900 
15950 
15955 
15960 



16050 
16100 
16150 



I «««••««»*»«» 



jTXTBAp THIS RQUTinE CATCHES THE INTERRUPTS FRqm 
) DLll'S IN USE Bt THE MECHO fiOUTl^^'E , 

J ««»«««•««»«• 



txtrapi 


SUB 


H0r (SP) 


jSUb 10 FRUM UPDATED PC 0'^ STACK 




MOV 


(SPJ, (H4) 


fPUT BASE VECTOR INTO STACKJ 




MOV 


»LIN00f4,-(SP) 


jGET POINTER TO LINF. TAHLt;; VECTORS 


ISI 


CMP 


§0(5PJ, (B4) 


ICOMPaRE TaRLE to STACK i 




BCQ 


2$ 


JSAME « BRANCH 




ADD 


»10# (SP) 


fPOINT TO NEXT TABLE KNTK< 




BR 


IS 


jKEEP LOOKING FOR A WATCH 


281 


SUB 


82* CSP) 


|ADDR or DLADR NOw ON STACK 


MOV 


P0tSP),TEMp 


|GET DLAOR FROM TABLE 




ADD 


»4#TEMp 


IPOINT TO DVCTXS REGISTER 




CliR 


9TEMP 


fDlSABLE INTERRUPTS 




ADO 


S6f SP 


|SET STACK POINTER TO DRIVER PC 




DEC 


ENDS 


IDECRIMENT INTERRUPT PENDING COUNT 




BGT 


38 






CLB 


DELAlfT 


1 ABORT Tl'^EOUT IF ALL ACCOUNTED FOR 


3Si 


RTl 




jRETURN 10 I/O DRIVER 



I STRAP 



SInGlE line TRANSMIT INTERRUPT CATCHER 
USED IN CONJUNCTION i^ITH 5ECH0 ROUTINE, 



CLR 
DEC 
CLR 
RTI 



iDVCIXS 

ENDS 

DELAYT 



5000091 
5000191 



I *««««#«•!»«««« 

|DEi,AlfM DELAYS FoR X mIllI SECqnDS, X STyREO In 



!»#»««««««»«« 

DELaYMI TST 
BEQ 
MOV 



l$l 
291 



MOV 
DEC 
BNE 



DELAYT 
3S 

R3#-(SP) 
,MEX1T 
TIMER, B3 
B3 

2S 



IIMS LOOP TIME 
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1779 


007550 


005337 007564 


16200 




DEC 


DELAYT 




1780 


007554 


003371 


16250 




BGT 


IS 




1781 


007556 


012603 






MOV 


(SPU,R3 




(2) 












.MEXIT 




1782 


007560 


000002 


16350 


381 


RTI 






1783 






16400 










1784 


007562 


000554 


16450 


timeRi 


»W0RD 


554 


>SET FOR 1 1/35 - 1 1/40 


178S 






16500 








>SET TO 202 IF 11/03 


1786 






16550 








> 251 11/05 - 11/lu 


1787 






16600 








1 314 11/15 - U/2t^ 


1788 






16650 








1 2127 11/45 FlPuLAH 


1789 






16700 








t 1237 U/4b - ll^7k? 


1790 






16750 








» 755 ll/4b Mt)S 


1791 


007564 


000000 


16800 


DCLAXTi 


(.WORD 





fPELAY TI^E BUFFER 
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i793 










16900 


1 794 










16950 


1 795 










17000 


1796 










17050 


1797 










17100 


1798 










171S0 


1799 










17200 


1S00 










17250 


IHtfl 


007»6& 


016637 


000006 


01 6130 


17300 


1B02 


007374 


013746 


016150 




17330 


1803 


007600 


066666 


000006 


000004 


17400 


1804 


007606 


003366 


000004 




17450 


1S09 


007613 


042716 


177770 




17500 


1006 


007616 


0S3716 


000060 




17550 


1 807 


007622 


1 11676 


000004 




17600 


1 808 


007626 


003366 


000004 




17650 


1809 


007633 


003366 


000006 




17700 


1810 


007636 


00141 1 






17750 


1811 


007640 


006266 


000010 




17800 


1813 


007644 


006266 


000010 




17850 


1813 


0(47630 


006266 


000010 




17900 


1814 


007634 


016616 


000010 




17950 


18 IS 


007660 


000734 






18000 


l8l6 


007662 


016666 


000002 


000010 


18050 


1B17 


007670 


062706 


000010 




18100 


1811 


007674 


000207 






18150 


1819 










18200 


1820 










18250 


1821 










18300 


1823 










18350 


1823 










18400 


1834 










18430 


1833 










185(40 


1839 










18700 


1830 


007676 










1811 


007676 


010046 








1833 


007700 


003037 


010004 






1833 


007704 


016600 


00001 






1834 


0077 10 










1833 


0077 10 


142 710 


000370 






1836 


007714 


003366 


000006 






1837 


0077 20 


133037 


010004 






1838 


007724 


005766 


000006 






IS) 


007730 


001407 








1839 


007733 


006337 


010004 






C7J 


007736 


006J37 


010004 






C7) 


007742 


006337 


010004 






1S40 


007746 


000760 








(3) 


007750 










1841 


007750 


016600 


000004 






1843 


007754 


013710 


010004 






1843 


007760 


011637 


010004 






1844 


007764 


01660<^ 


000002 






1843 


007770 


062706 


000M10 






1846 


007774 


010016 








1847 


007776 


013700 


010004 







sSbTTL CONVLHSION ROUTINES 



02A5CI OCTAL TO ASCII CONVERSION HOUTINL - ENTER ^IlH 
NUMBER TO BE CONVERTED ON THE STACK, FOLLOWKU 





BY THE 


NUMBER OF DIGITS 


TO CONVERT, FOLLOWtD 




BY THE 


STORAGE ADDRESS 


FOP THE ftSCll STRING, 


1 #«•««•«»•«*« 






02ASCI 


MoV 


6(SP) iSAVE 


J GET WqPK CoPY OF HUf"Hfc,K 




MOV 


SAVC,«(SP) 






ADD 


6(SP)#4CSF) 


jADD COUNT TO POINTER 




DEC 


4C5P3 


IDEC FOR El^n ADOR 


2SI 


BiC 


»177770,(SP) 


imASk OUT All '^'JT J Bits 


OIS 


«60# (8P) 


|MAKE CHAR ASCII 




MOVB 


(SP),?4(SP) 


>PUT ASCII CHAH IN BUFtEH 




DEC 


4CSP) 


>INC POINTER 




DEC 


6(SP) 


lOEC DIGIT COUNT 




BEQ 


18 


IBRANCH IF DONE 




ASH 


10(SP) 


1 




ASR 


10CSPJ 


|GET NEXT DIGIT 




ASR 


10(SP) 






MOV 


li)(apJ,CSP) 






BP 


29 


|D0 NEXT CHAH FOR COhVERSION 


111 


MOV 


2tSP),lfiCSP) 


|PUT RETURN PC AT TOP OF JU^^K 




ADD 


#10»5P 


IPOINT TO RETURN PC 




HTS 


PC 


f EXIT,, , 



A2BIN CONVERTS InPUT ASCh To BInARY nUmHER 

ENTER WITH ADDR Of ASCII STRING ON STACK 
FOLLOWED BY 8 DIGITS TO CONVERT 
FOLLOWED BY ADDR OF WORD FOR ANSWER, 

A2BINI 



3000231 



MOV 


R0,"C5P) 


CLR 


A25AV 


MOV 


10(5P),R0 


BICB 


#370, (R0) 


DEC 


6(SP3 


BISB 


(R0}4',A3SAV 


TST 


6(5P) 


BCO 


5000JS 


ASL 


A2SAV 


ASL 


A36AV 


ASL 


A3SAV 


BR 


50002S 


MOV 


4(SP}»RH 


MOV 


A2SAV, (R0J 


MOV 


(SP),A2SAV 


MOV 


2CSP),R0 


ADD 


»10»SP 


MOV 


H0, (SP) 


MOV 


A2SAV,R0 
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CZLAFAi 


Pll 03 


!»JAN»78 


11120 




CONVERSION ROUTINES 




1848 


010003 










50000SI 




(3J 


010003 










50001$! 




(2) 


010003 


000207 








RT5 


PC 


1849 










19600 






18S0 


010004 


000000 






19650 


A2SAVt .WORD 


I STORAGE AKEA 


1851 










19750 






1832 










19850 






1833 










19950 






1854 










20050 


f »«•««««««««« 




1835 










20150 


IBIN2UA BINARY To DECImAl ASCII CONVERSION ROUTInE 


1856 










20350 


1 ENTER 


WITH NUMBER TO CONVERT ON fHE STACK, 


1837 










20450 


1 FOLLOWED BY THE ADDRESS OF THE ASCII BUFFER, 


1838 










20500 


1 5 DIGITS WILL BE CONVFRlEO 


1859 










20550 


J »«»**««««««« 




1860 










20650 






1861 










2075fe' 






1862 


010006 


012700 


010146 




20850 


BIN2DAI MOV 


9TaBDA»P0 JINIllALIiiE TABLE POI 


1863 


010013 


112737 


000005 


010162 


20900 


MOVB 


#5, DIGITS 


1864 


010020 


005037 


010160 




20950 


CLR 


CNTDA 


1863 


010024 


021066 


000004 




21050 


ISI CMP (R0J,4(SP) 


1866 


010030 


003005 






21150 


BGT 


2S 


1867 


010032 


161066 


000004 




21250 


SUB 


(R0),4(SPJ 


1868 


010036 


105237 


010160 




21390 


INCB 


CNTDA 


1869 


010042 


000770 






21450 


BR 


18 


1870 


010044 


152737 


000060 


01 01 60 


21550 


2SI BISR 


#60, CNTDA 


1871 


010052 


105737 


010161 




21650 


TSTB 


FLAGDA 


1872 


010056 


001012 






21750 


BNE 


4S 


1873 


010060 


123727 


010160 


000060 


21B50 


CMP8 


CNTdA,« '0 


1874 


010066 


001004 






21950 


BNE 


35 


1875 


010(570 


112737 


000177 


010160 


22030 


MOVB 


S177, CNTDA 


1876 


010076 


000402 






22150 


BR 


4S 


1877 


010100 


105137 


010161 




22250 


351 COMB 


FLAGDA 


1878 


l,)lOlfe'4 


113776 


010160 


000002 


22350 


4$i MOVB 


CNTDA, &2(SP) 


1879 


010112 


005266 


000002 




22400 


INC 


2(SP) 


1880 


010116 


062 700 


000002 




22450 


ADO 


#2»R0 


1881 


010122 


105037 


010160 




22550 


CLRB 


CNTDA 


1882 


010126 


105337 


010162 




22650 


DECP 


DIGITS 


1883 


010132 


001334 






22730 


BNE 


IS 


1884 


010134 


011666 


000004 




22800 


MOV 


(SP),4(SP) 


1883 


010140 


062/06 


0W0004 




22825 


ADD 


i4,SP 


1886 


010144 


000207 






22850 


RTS 


PC 


1887 










22950 






1888 


010146 


023420 


001750 


0001 44 


23050 


Tabdai .word 


10000. # 1000. , 100. r 10. » 1 




010154 


00001 2 


000001 










1889 


01 0160 


000 






23150 


CNTDAI .BYTE 





1890 


010161 


000 






23250 


FLAGDAi ,BYTE 





1891 


010162 


000 


000 




2J300 


DIGITS! .BYTE 


0,0 


1893 










33350 






1893 
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1898 










00250 




9SBTTL 


LA36 OPTION 


TESTS 


1899 










00300 


} # # # 


» » « » 






1900 










00350 










19»1 










00400 


>TEST0 


SECONDARY CHARACTER 


SET OPTION 


1902 










00450 




NO MANUAL, iNTEPVENTION HEQUIREU 


1903 










00500 


1 » # « 


» » « » 


^ ft ^ ^ ^ # 




1904 










00550 










1905 


010164 


012705 


010352 




00600 


TeST0I 


MOV 


#T00g|jKf P5 


jStT UP P01f><TcH TO f'OpULE BLOCK 


1906 


010170 


012700 


010366 




00650 






8T0,R0 


fSU TEST lb 


1907 


010174 


004737 


007010 








JSH 


PCfMTYPE 




1900 


010200 


012700 


010424 




00750 


T01 1 


HOV 


»PRIf R0 


|SU PKIMAP3( MSG 


1909 


010204 


004737 


007010 










PCf MTYPE 




1910 


010210 


004737 


010310 




00050 




J5B 


PC#CHARS 


JSEND ALL CHARACTBRS 


1911 


010214 


012700 


01 7730 




00900 




HOV 


|IL1,B0 




1912 


010220 


004737 


007010 








JSR 


PCMTYPE 




l9i3 


010224 


012700 


010434 




01000 




MOV 


«SEC,R0 


jSU SECONDARY MSG, 


1914 


010230 


004737 


007010 








JSH 


PCMTYPE 




191S 


010234 


012702 


000016 




01100 




MOV 


«S0|P2 


I SEND SO - SELECT APL SET 


1916 


010240 


004737 


006270 








JSR 


PC#MECHO 




1917 


010244 


004737 


010310 




01200 




JSP 


PC»CHARS 


jSEND ALL CHARS AGAIN 


I9i8 


010250 


012700 


017730 




01250 




MOV 


»L1»P0 




1919 


010254 


004737 


007010 








JSP 


pc#mtype 




1920 


010260 


012702 


000017 




01350 




MOV 


#SI,R2 


jSEND SI-SELECT ASCII 


1921 


010264 


004737 


006270 








JSP 


PC#MECHO 




1922 










01 450 










1923 


010270 


052765 


020000 


000004 


0IS00 




BiS 


»TD0NE#MrijAGS(R5) jSfcT DONE AND Al'Tfe NTiUw F LaGS 


1924 


010276 


012702 


000012 




01550 




MOV 


»12fR2 


|5U FOB ur 


1925 


010302 


004737 


006270 








JSR 


PC#MECHO 




1936 


010J06 


000207 






01650 




BTS 


PC 




1927 










01700 


;««*«•»»««*»« 






1921 










01750 


f subhoutink to 


i'llh OUTPUT 


LINE w|Th Alu Characters 


1929 










01 800 


> 








1930 


010310 


013701 


016146 




01850 


CHARSI 


MOV 


WluTH»Rl 


ISaVE WlyTri 


1911 


010314 


012702 


000040 




01900 




MOV 


«40,P2 


fSAVE fSlART CHAR 


1932 


010320 


162701 


000007 




01950 




SUB 


«7#Rl 


jADJUST HlUTH FOR PRI/SEC H5G 


1933 


010J24 








02000 










(3) 


010324 


004737 


006270 








JSR 


PCiMEChO 




1934 


010330 


00S202 






02050 




INC 


R2 


jNEXT CHAR 


1939 


010332 


020237 


010364 




021M0 




CMP 


P2»RUB 


jLAST CHAR? 


1936 


010336 


001403 






02150 




BEQ 


38 


|YES >• EXIT 


1937 


010340 


005301 






02200 




DEC 


Rl 


|END UF PAPER? 


1938 


010342 


001401 






02250 




BEQ 


3S 


|YES - EXil 


1939 


010344 


000767 






02J00 




BR 


2$ 


jSEND NEXT 


1940 


010346 


000207 






02350 


3$l 


HTS 


PC 




1941 


010350 


000006 






0240fi 




.WORD 


6 


lITERATION COUNT 


1942 


010J52 


000000 






02450 


T008LK 1 


.WORD 





fCTLCNT 


1943 


010354 


000000 






02500 




9WORD 





jPASS COUNT 


1^44 


010356 


000000 






02550 




.WORD 





J STATUS FLAGS 


1949 


010360 


000000 






02600 




,WORD 





f POINTER 


1946 


010362 


010200 






02b50 




.WORD 


T0I 


J RETURN PC 


1947 


010364 


000177 






02700 


PUBl 


,WOBP 


177 




1948 










02750 




BEX 






1949 


010366 


042524 


092123 


030040 


02800 


T0| 


sASClZ 


»TEST APL/ASCII CHAR SE r»< i 5>< i 2>< 1 2> 


1950 


010424 


051501 


044503 


026511 


02850 


PRil 


,ASCXZ 


/ASCII--/ 




1951 


010434 


050101 


026514 


026455 


029m0 


SECl 


.ASCXZ 


/APLo — -/ 




19S2 










02950 




8 EVEN 







C2LAFA0 LA3b TERM TST MACYll 30AC1052) 03«JAN»77 00101 PAGE 3«-l 



CZLAFA, 


Pll 03 


bJAN«78 


11 120 




LA3fe OPTION TESTS 




1954 










03050 








1955 










03100 


.LIST BEX 




1956 










03150 


1 » » » 




« « « 


1957 










03200 








1958 










03250 


ITESTI 


SELECTIVE ADDRESSING OPTION 




1959 










03300 




OPERATOR MUST COMPARE TYPEOUT AND SWITCHES ON THE 


M77J7 


1960 










03350 




TO VERIFY CORRECT OPERATION, 




I96I 










03400 




IF A GROUP OH UNIT SELECT CODE OF LESS THAH 20(HJ 




1962 










03450 




IS USED MODIFY LOCATION G5EL ACCUHUINGLY, 




1963 










03500 








1964 










03550 


I » « # 




« # « 


1965 










03600 








1966 


010444 










TESTl 1 






1967 


010444 


012705 


010722 




03700 




MOV «T01BLK,R5 fSET UP POINTER TO f^ObULE 


bUUCK 


1968 


010450 


012700 


010742 




03750 




MOV 8T1#R0 




1969 


010454 


004737 


00701PI 








JSH PC^MTYPfc 




1970 


010460 








03850 


Till 


iDESELECT ALL TERMINALS! THEN TRli TO 




1971 










03901^ 




IPPINT ERROR MESSAGES, .SHOULD NOT PRIM 




1972 










03950 




ITRANSMIT A BAD SELECT SEQUENCE, THtN TRY TO 




1973 










04000 




fPBINT ERROR MESS AGES SHOULD NOT PRINT 




1974 










04050 




fSELECT ALL TERMlNALSr PRINT GP MESSAGE, 




1975 










04100 








1976 


010460 


012765 


010566 


000010 






MOV #Tl3#RPCtR5J 




1977 


010466 


013701 


010734 








MOV GSEL,Pi 




1978 


010472 


012737 


011176 


010740 






MOV f«TABLl»TlTEMP«.2 




1979 


010S00 


012737 


000001 


0107J6 






HOV »1#T1TEMP 




C5) 


010906 


000402 










BR 500028 




(4) 


010910 










5000351 






C7J 


010510 


005237 


010736 








INC TITEMP 




t5) 


010514 










50002SI 






(5) 


010514 


023727 


010736 


000010 






CmP T1TEMP,»8, 




(7) 


010522 


003014 










BGT 500048 




1980 


010524 


012700 


017730 








MOV »LI»R0 




1981 


010530 


004737 


007010 








J5B PC»MTYPE 




1982 


010534 


017700 


000200 








MOV f>TiTeMp + 2»R0 




1983 


010540 


004737 


007010 








JSR PCMTYPE 




1984 


010944 


062737 


000002 


010740 






ADD •2»TlTEMP+2 




1985 


010552 


000756 










BR 50003$ 




(3) 


010554 










50004$! 






1986 










04650 




} TRANSMIT SEuECT CoDES TO ALL TERMINALS 




1987 










04700 




1 FOLLOWED BY ASCII EOUIV OF CODE, 




1988 


010554 








04750 


T12I 






(4) 


010554 


012765 


010460 


000010 






MOV #TU#RPCCR5) 




1989 


010562 


013701 


010734 








MOV GSELfRl 




1990 


010566 








04850 


TIJI 


jOUTPUT ALL CODES AND ACCII EQUIVEtiANTS 




l99l 


010566 










5000581 


CMP Rl#«200 




1992 


010566 


020127 


000200 










C5) 


010572 


001420 










BEQ 500068 




1993 


010574 


012700 


020421 








MOV #SCODErH0 




1994 


010600 


110160 


000003 








MOVB Hl#3CR0) 




1999 


010604 


004737 


007010 








JSP PCMTYPE 




1996 


010610 


112702 


000002 








MOVB #STX,R2 




1997 


010614 


004737 


006270 








JSR PC,MECHO 




1998 










05250 




1 NOW CONVERT SELECT CODE TO ASCII FOR OUTPUT 




1999 


010620 


004737 


010662 








JSR PC»CON 




2000 


010624 


004737 


007010 








JSR PCMTYPE 
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2mx 

2002 
(3) 

2004 
C4J 

2006 
21007 
2008 
(3) 
C3) 
2W09 
2010 
20tl 
2013 
2013 
20H 
2M1S 
2ul6 
2017 
20li 
20lf 
O) 
(2J 
2020 
2021 
2022 
2033 
2024 
202S 
2026 
3H27 
2028 
2029 
2030 
2031 
3032 
2033 
2034 
3033 
2036 
2037 
2038 
2039 
2040 
2041 
2043 
2043 
2044 
2049 
2046 
2047 
2048 
2049 
2030 



0106 30 

0H?b32 
010634 

010634 
010634 
010642 
0106S0 
0106S4 
010660 
010660 
010660 



010663 
010662 
010666 
010672 
010676 
010702 
010706 
010712 
010716 
010716 
010716 

010720 
010722 
010724 
010726 
010730 
010732 
010734 
010736 

010742 
01 1005 
011045 
011 100 
011137 

011176 



011216 
011216 

011222 



005201 
000759 



012765 
052769 
012700 
004737 



005037 
110137 
013746 
012t46 
012746 
004737 
012700 



000207 

000002 
000000 
000000 



INC 
BR 



Kl 

50005$ 



010460 
020000 
020411 
007010 



010736 
010736 
010736 
000003 
011520 
007566 
011520 



010460 



00S01S 
105 
116 

043523 
101 

011176 

020416 



052012 
051122 
020117 
042514 
046114 



05500 
05550 



000010 

000004 



06300 
06350 
06400 
06450 



06550 
06600 
06650 



051505 
051117 
042523 06900 
052103 06950 
052040 07000 
07050 



5000691 
T16I 



t TURN ALL TERMINALS ON AND KXIT TfciST 



MOV 
BIS 
MOV 
J5R 



»T11»RPC(R5) 
»TUONE,Mf LAGS(RS) 
IIALLON,R0 
PCfMTYPE 



S0000S^i 
5000191 



BT8 PC 

J THIS ROUTINE CONVERTS THE SELECT CODE 
f TO ASCII FOR OUTPUT IN OCTALC MESSAGE, 



CLR 

MOVB 

MOV 

MOV 

MOV 

gsR 

MOV 



50000^1 
5000181 



GSCLi 

TlTEMPl 

.NLIST 

TU 

E9I 

E12I 

GPI 

El0t 



010337 

012703 



011005 011137 07100 TABLlI 
07150 
07200 
07250 
07300 
07350 
07400 
07450 
07500 
07550 
07600 
07650 



011304 
013144 



IfGETAj^S 
I 

; ##»«•«»*«•«» 



MOV 

MOV 



TlTEMP 

H1,T1TEMP 

TlTEMP, -(SP) 

»3#-(SP) 

#OCTALCr-CSP) 

PC#02ASC 

#OCTALC#R0 



RT5 

,W0RD 
.WORD 
,WORD 
9WORD 
,MORD 
,WORO 
.WORD 
.WORD 
BEX 
.ASCIZ 
.ASCXZ 
.ASCIZ 
.ASCZZ 
.ASCIZ 
.EVEN 
.WORD 



2 I ITERATION COUNT 

ICTLCNT 

I PASS COUN'i 

iSTfiTUS FLAGS 

^POINTER 

Tu fRETURN PC 

20 ifSTART OF SELECT CODES 

0#0 

<15><12><12*/TEST 1 SELECHVC AODRESSlNU/< 1 S>< I 2>< I 2> 
/ERROR » THIS SHOULD NOT PRINT »/ 
/NO SELECT CHARACTER SENT/<i5><12> 
/SELECT CHARACTERS RECOGNIZED s/ 
/ALL TERMINALS SHOULD BE 0FF/<lb><12> 

ALL(iFF,E9#El0,NSELC#E9,El2#ALLON,GP 



THIS ROUTINE SETS UP AmD READS THK A,^5k»fcRBACK 
MESSAGE FROM THE TERMINAL UNDER TEST, 



H3,25 
ST220,R2 



CZLArA0 


LA36 TERM TST 


MACYll 


czlafa. 


PU 03 


'B'JAnb'78 


11130 


2031 


011226 


004737 


007124 


2052 


011232 


012702 


000005 


20S3 


011236 


004737 


006654 


2034 


011242 






14) 


011242 


013702 


011304 


2095 


011246 


004737 


007024 


2056 


011252 


032765 


100000 


(9) 


011260 


001405 




2057 


011263 


042765 


100000 


2058 


011270 


1050U 




20S9 


011272 


000403 




(3} 


011274 






2060 


01 1274 


105237 


013212 


2061 


011300 


000760 




2062 


011302 






2063 


011302 






(3) 


011302 






C2) 


011303 


000207 




2064 


011304 


000000 




2065 








2066 








2067 








2068 








2069 








2m70 








2071 








2072 








2073 


01 I J06 






2074 








2075 


01 1306 


012700 


020421 


2076 


011312 


004737 


0071 10 


2077 


011316 


012702 


000002 


20 78 


011322 


004737 


006654 


2079 


01 1326 


012700 


011472 


2080 


011332 


004737 


007110 


2081 


01 1336 


013746 


013212 


2082 


01 1342 






C4) 


011343 


005046 




2083 


011344 


113116 




2084 


01 1346 


012746 


000003 


2085 


011352 


012746 


01 1530 


2086 


011356 


004737 


007566 


2087 


011362 


012700 


01 1520 


2088 


011366 


004737 


007110 


2089 


011372 


10S337 


013212 


2090 


01 1376 


105737 


013212 


t9j 


011402 


003402 




2091 


011404 


000756 




2092 


011 406 


000426 




(3) 


011410 






2093 


0] 1410 


012700 


017730 


3094 


011414 


004737 


0071 10 


2095 


01 1420 


012700 


000023 


2096 


011424 






2097 


01 1424 


012702 


000040 


2098 


011430 


004737 


006654 
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JSR 
MOV 
JSR 

MOV 

JSR 

BIT 

BEQ 

BIC 

CLRB 

BR 

InCB 
BP 



PC»BEADS 
IENU,P2 

PCf 5ECH0 

2%,H2 

PCf READIO 

»MEPR»MFLAGS(R5) 

50002$ 

»MfcRR,MFLAGS(R5) 

(RIJ 

500038 

T2CNTI 
18 



5000381 
5000081 
5000181 



08500 28 1 
08550 
08600 
08650 
0870B 
08750 
08800 
08850 
08900 

09000 



09700 



RTS 
.WORD 



I ««««*««««*«» 

flVPANS THIS ROUTINE PRINTS THE AnSwERHACK MESSACfc. 
> IN OCTAL FORMAT! , AND ASCII l-ORMATT, 

I *»««««««*«*« 



MOV 


»SCODF#R0 


JSR 


PC, TYPES 


MOV 


(iSTX,R2 


JSR 


PCrSECHO 


MOV 


«ANSHDRrR0 


JSR 


PC, TYPES 


MOV 


T2CNTl#»C5PJ 


CLR 


»(SP) 


MOVB 


(R1)'»#(SP) 


MOV 


»3#-CSP) 


MOV 


•OCTALC, -(SP) 


JSR 


PC,02A5C 


MOV 


»OCTALC,R0 


JSR 


PC, TYPES 


DECB 


T2CNTI 


TSTB 


T2CNT1 


BLE 


500028 


BR 


18 


BR 


500038 


hOV 


«L1 ,R0 


JSR 


PC, TYPES 


MOV 


»J9,,R0 


MOV 


•40, R2 


J5B 


PCSECHO 
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a<^99 


01 1434 


0U5300 








DEC 


B0 


2)00 


011436 


005700 








TST 


H0 


(S) 


011440 


001401 








BEO 


50005$ 


2101 


011442 


4100770 








BR 


50004S 


C3) 


0! 1444 








50«05Sl 






2102 


01 1444 


01 2700 


013220 






MOV 


#T2BUF# BW 


2103 


§11450 


004737 


0071 10 






JSB 


PC»T)iPES 


2104 


01 14S4 


012700 


017730 






MOV 


f(Ll#R0 


2105 


01 1460 


«04737 


0W7HH 






JSR 


PC»TYPES 


2106 


011464 








50003^1 






2107 


011464 


012637 


013212 






MOV 


CSP)4,T2C^T1 


2108 


ei 1470 








50000$! 






(3J 


011470 








5000l8i 






(2) 


01H70 


000207 








PIS 


PC 


2109 


011472 


005015 


047101 053523 


10100 


ANSHDHi 


,ASCIZ 


<15><12>/ ANSWERBACK 


2110 


011520 


030060 


027460 000 


10150 


OCTALCl 


.ASCIZ 


*000/» 


2111 




01 1526 




10200 




,KVrN 




2U2 








10250 
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2114 










10350 




,HST 


BEX 




2113 










10400 


}» » » 


» « » « 


««««*««»«»»*««««»»#«« 


tt » « # 


2116 










10450 










2117 










10500 


|TEST2 


AUTO ANSWER BACK OPTiON 




2118 










10350 




SINGLE 


LINE TESTS REOUIKL MANUAL iNTEHVENTlOi-* 




2119 










10600 










2120 










10650 


» « 


« » » # 


»*«»««««»*««*«»«««««» 


« « « » 


2121 










10700 










2122 










10750 


,ENABLi 


LSH 






2123 


011526 










XEST2I 








2124 


011526 


012700 


01 3326 




10850 




MOV 


#T2*R0 




2123 


01 1532 


012701 


01322V' 




10900 




MOV 


»T2BUF,R1 iSET UP STACK-2 AS If.Puf 


BUI- f EH 


2126 


011536 


012705 


013176 




10950 




MOV 


»T<(52faLl< »r5 ISET UP pOif'TfeH tO MUfHibt 


BIUCK 


2127 


011342 


004737 


007010 








JSR 


PCfMTlfPE 




2128 


011546 








U050 


T21I 


J IF THE LINE UNDER TEST HAS^i'T BEfciv SIZED 




2129 










1 1 10e 




»FOR THE ANSWERBACK OPTION no SO Myi-., 




2130 










11150 




1 






2131 


011546 


105737 


016134 








tstb 


DLOTH 




(9) 


011552 


001065 










BNE 


50002S 




2112 


01 IS54 


012701 


013220 








MOV 


«T2BUF,Nl 




2133 










1 1300 




fCHECK 


DLOIH ENTRY OF LINE TABLE FUR CURHFt'.T 




2134 










11350 




ILINE, 


IF LC'BYTE IS NO SIZE HAS BEEN DO'^'E, 




2135 










11400 




> IF a 


200 LINE SIZED HUT "0 ANSWER HECVD, 




2136 










1 1450 




1 






2137 


01 1560 


013737 


010734 


01 3214 






MOV 


GSELiT2TEMP 




2139 


011S66 


013^7 


016J6H 


013216 






MOV 


ONLIN,T2TeMP+2 




(7) 


011574 


006337 


013216 








ASL 


T2TEMF+2 




(7) 


011600 


006337 


013216 








ASL 


T2TCMP42 




(7) 


01 1604 


006337 


013216 








ASL 


T2TEMP+2 




2139 


01 1610 


062737 


016176 


013216 






AOO 


»LlN00*(j,T2TEMP*2 




2140 


011616 


112777 


000200 


001372 






MOVB 


»200#»T2TEMP+2 




2141 


011624 










5000381 








2142 


011624 


023727 


013214 


000200 






CmP 


T2XEMP» #200 




(5) 


0U632 


001435 










BEQ 


50004$ 




2143 










11800 




1 SEND 


EACH POSSABLE SELECT CODE TO THE 




2144 










11850 




»TErMINAL# then request an ANSWERBACK. 




2145 










1 1900 




tlF An 


Answer is revieved store the select 




2146 










11950 




JCODE 


IN DLOTH ENTRY OF THE LINE TABLE, 




2147 










12000 




fOTHERWISE SET DLOTH TO 200t 




2148 


011634 


113737 


013214 


020424 






M0V9 


T2TEMP,SCODE4-3 




2149 


01 1642 


012700 


020421 








MOV 


»SCf»DE,P0 




2130 


011646 


004737 


007U0 








JSR 


PC#TSfPES 




2151 


011652 


012703 


000310 








MOV 


#200. #B3 




2132 


01 1656 


105037 


013212 








CLR8 


T2CNT1 




2lS3 


01 1662 


004737 


011216 








•JSR 


PC#GETAN5 




2154 


01 1666 


105737 


013212 








TSTB 


T2CNT1 




19J 


011672 


001412 










BEQ 


50003$ 




2195 


011674 


113777 


013214 


001314 






MOVB 


T2TEMPril21EMP'J'2 




2136 


011702 


113737 


013214 


^516134 






MOVB 


T2TEMP, DLOTH 




2157 


011710 


012737 


0M0200 


013214 






MOV 


»200#t2tEMP 




21S8 


011716 


000402 










BR 


500066 




(3) 


01 1720 










50005$! 








2139 


011720 


103237 


013214 








INCB 


T2TEMP 




2160 


011724 










S0006Si 








2161 


011724 


000717 










BR 


500033 




(3) 


011726 










50004SI 









» « » » 
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2162 


01 1726 










5000251 






2163 










12600 








2164 


011726 








12650 


T22I 


tlF THE 


LlHt HAS BEEN SlitDt BUT NO 


316S 










12700 




fSELECT 


CODE HAS BEEN MAPPED NOTIFY THE 


2166 










12750 




fOPERATOR , 


2167 










12800 




1 




2168 


011726 


123727 


016134 


000200 






CMP8 


DLOTH#»20H 


C9J 


011734 


001fc?13 










BNC 


500078 


2169 










12900 




1 ERROR 


•0 NO ANSWERBACK FROM TERMINAL 


2170 










12930 




1 *»#*»»»««««««« 


217! 










13000 




1 




2172 


011736 


012765 


01253H 


000010 






MOV 


«T24#RPCCR5) 


2173 


011744 


052765 


100000 


000004 






£)ZS 


«MERR|MFLAGS(R5 j 


2174 


011752 


105069 


000004 








CLRB 


MFLAGSCRS) 


3173 


01 17S6 


012763 


013356 


000006 






MOV 


#El4#P0INT(R5) 


2176 


011764 


000207 






13230 




RTS 


PC 


2177 


011766 


000463 










BR 


300108 


(3) 


011770 










5000781 






2178 


011770 


012701 


013220 








MOV 


IT2BUF»R1 


2179 










1 J400 




|GET THE SELECT CODE FROM IHE LINE TABLE & 


2180 










13450 




jREQUEST AN ANSWERBACK, 


2l8t 










13500 




1 




3182 


011774 


113737 


016134 


020424 






MOVb 


DL0TH»SC0DE*3 


2183 


013002 


013700 


020431 








MOV 


#SCODEf R0 


2184 


012006 


004737 


007110 








JSP 


PC, TYPES 


3183 


013012 


012703 


000310 








MOV 


#200. #R3 


3186 


013016 


105037 


013212 








CLR8 


I2CNT1 


2187 


013023 


004737 


011216 








JSR 


PC#GETAN5 


218S 










13850 




ICHECK 1 


FOR ANY RESPONSE FROM TERMIrtftL 


2189 










13900 




t 




2190 


013026 


105737 


013212 








TSTb 


T2CNT1 


C9J 


013033 


001015 










BNE 


500US 


2l9t 










14000 




1 ERROR 


#1 NO ANSWERBACK RECXEtrED, 


3193 










14050 






2193 










14100 


1 






2194 


013034 


013765 


012530 


000010 






MOV 


«T24»RPc(R5J 


2195 


013042 


052765 


100000 


000004 






BIS 


»MEPR,MFLAGS(R5J 


2l96 


012050 


112765 


000001 


000004 






MOVB 


8l,MFLAG5(R5) 


2197 


013056 


012765 


013356 


000006 






MOV 


#El4rPOINt(R5) 


3198 


012064 


000434 










BR 


500128 


C3J 


012066 










b00US| 






2199 


013066 


012763 


012140 


000010 






HOV 


«T23,RPC(R5J 


2300 










14450 




jTEST LENGTH OF ANSWERBACK SHOULD BE 20 MAX, 


2201 










14500 




1 




2302 


013074 


123727 


013212 


000024 






CMPb 


T2CNT1,I20, 


C9) 


012103 


003411 










BLE 


500138 


3203 










14600 




f ERROR 


#2 ANSWERBACK OVER 20 CHARS LUNG 


2204 










14650 






2205 










14700 




> 




2206 


013104 


032765 


100000 


000004 






BIS 


»MEHR#MFLAGS(R5J 


2207 


013112 


112765 


000002 


000004 






MOVB 


«2,MrLAGS(R5 5 


3208 


013130 


013763 


013404 


000006 






MOV 


#El5,POINt(R5) 


2209 


013136 










50013SI 






2210 


013136 


012701 


013220 








MOV 


»T2BUr,Hl 


3311 


012132 


004737 


011306 








JSR 


PC#TYPANS 


2212 


012U6 










5001251 







CZLAFA0 


LA36 TERM T5T 


MACYll 


CZLAFA, 


Pll 03 


i<»JA«i»78 


1 1 120 


3313 


012136 






2314 


013136 


000207 




2215 


0! 2140 






2216 








2217 








2318 








2219 


013140 


012763 


012206 


2220 


013146 


113737 


013212 


2221 


013154 


012701 


013220 


2222 


012160 


012700 


020574 


2223 


013164 






2224 








2225 


013164 


105737 


013212 


C5) 


013170 


001404 




2336 


M12172 


112120 




2227 


012174 


105337 


013212 


3228 


012200 


000771 




C3) 


012203 






2229 


013202 


105037 


013210 


3230 








2231 


012206 






3232 








3233 


013206 


012701 


013220 


2234 


012212 


105037 


013212 


2235 








2236 








2237 


013216 


012700 


020421 


2230 


012222 


012703 


000310 


2239 


012226 


0047 37 


011216 


3240 


012232 


105237 


013210 


2241 








2242 








2243 








2244 








2245 


012236 


105737 


013212 


(9) 


012242 


001012 




2246 








2247 








2248 








2249 


012244 


052765 


100000 


2250 


012252 


012H5 


013356 


2251 


012260 


112765 


000030 


2232 


012266 


000500 




C3J 


012270 






2353 


012270 


10S011 




2354 








2255 


012272 


123737 


013212 


19) 


012300 


001416 




2236 


012302 


012701 


013230 


2257 


012J06 


004737 


0071 10 


2258 








2259 








2260 








2261 


012312 


032765 


100000 


2362 


012320 


112765 


000031 


3263 


012326 


012765 


013336 
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15150 
15200 
15250 
15300 
15350 



000004 
000006 



000004 
000004 



15950 
16000 
16050 



lb250 



16500 
16650 
16600 
16650 



16750 
16800 
16850 



17350 
17400 
17450 



RTS PC 

fSAVE COPIES OF THE ANSWERBACK AND IT'S LENGlH 
fTHEN READ ANSWERBACKS 10 TIMES MORE, 
fVEPIFX IHEY ARE ALL THE SAME, 



MOV 
MOVB 
MOV 
MOV 



•T23A#RPCCR6) 

T2CNT1,T2CNT2 
•T2BUFf HI 
»STACK3iR0 



ICOPY ANSWERBACK TO STACK3 FOR COMPARISONS 



TSTB 

BEQ 

MOVB 

DECH 

BR 

clrb 



T2CNT1 
500158 
(Rl)+, (R0)+ 
T2CNT1 
500148 

T2SAV1 



T23AI IHESeT input bUfFER POInTrP AND 'iPMO CO«lNTtR 
> 

MOV »T2BUF,Fl 

CLHB T2CNT1 
jSEND SELECT SEQUENCE TO TERMINAL 
jTHEN REAn ANSWER 

MOV #SCODE,P0 

MOV 9200, ,R3 

JSR PC#GETANS 

INCB T2SAV1 

I IF NO ANSWER NOTIFY OPERATOR 

I IF OLD ANSWER DIFFERENT FROM NEw ANSWER 

f NOTIFY OPERATOR, 

I 

TSTB T2CNTI 
BNE 500168 
I ERROR «30 
;*«»«««««•»»» 
f 



NO ANSWERBACK DURING TEN REAL' LUUP 



BIS 

MOV 

MOVB 

BR 



•MeRR»MFLAGSIH5 J 

#E14,P0INT(R5) 
»30»MFLAGS(R5) 
500178 



CLRB (R1) 

ICOMPARE LENGTHS OF ANSWERS 
CMPB T2CNTi,T2CNT2 
BEQ 500208 
MOV »T2BUF#R1 
JSR PC, TYPES 

(ERROR 131 INCONSISTANT ANSWEPBACKS 

f »*««•«»•«»#« 

I 

BIS »MERR,MFLAGSCR5) 
MOVB #31 »MFLAGS(R5J 
MOV •El4,P0INT{R5) 
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PU 0J 


|«.JAN«78 


11 120 




LA36 C 


2264 


012334 


0004S3 








O) 


013336 










3265 


013^36 


012701 


013230 






2266 


012342 


012700 


020574 






2267 










17800 


2268 










17850 


2269 


013346 


005037 


013214 






227tJ 


012352 


113737 


013212 


013214 




2271 


012360 


005037 


013216 






2272 


013364 


013737 


000001 


013216 




C5) 


013372 


000402 








(4) 


013374 










(7J 


012374 


003237 


013216 






C5J 


012400 










<5J 


01340^ 


023737 


013216 


013214 




C7) 


012406 


003034 








2273 


013410 


132031 








C9) 


012413 


001431 








2274 










18150 


227S 










18200 


2276 










18250 


2277 


013414 


053765 


100000 


000004 




2278 


013423 


113765 


000032 


000004 




2279 


013490 


013763 


013575 


000006 




2210 


013436 


012701 


013220 






nB\ 


013442 


113737 


013213 


013213 




2282 


012450 


013737 


013214 


013216 




3283 


012456 










2284 


012456 


000746 








(3) 


012460 










2285 










18700 


3386 










18750 


3287 


012460 


013701 


013220 






3268 


012464 


004737 


011306 






3389 


012470 










3390 


012470 










3391 


013470 


033765 


100000 


000004 




C9) 


013476 


001401 








3392 


012900 


000207 






19050 


3393 


013503 










2294 










19150 


229S 


013503 


123727 


013210 


000010 




C9) 


013510 


001005 








3396 


013512 


0127S5 


012530 


000010 




2397 


013520 


000307 






19300 


3398 


013S33 


000402 








(3) 


013534 










3399 


013534 


000137 


012206 




19400 


3300 


013530 










3301 










19500 


3303 


013530 








19530 


3303 










19600 


3304 










19650 


2103 


013530 


013701 


013220 






3306 


013534 


105037 


013212 






3307 


013540 


013703 


000002 







BR 



5002381 
5002281 



50025SI 
5002481 



500218 



MOV «I2BUF,R1 

MOV »5TACi<3»R0 

ICOMPARE MASSAGES FOH SAME DATA 

I 

CLB T2TKMP 

MOVB T2CMTl#T2TEMP 

CLR T2TEHP+2 

MOV #l#T2TEMP+2 

BP 500228 



INC 

CmP 
8GT 
CMPB 
BEQ 
pERROP 
I 
I 



T2TEMP*2 

T2TEmP+2»T2TEmP 
500248 
(R0)*,(R1 
500258 

«32 INCONSISTANT ANSwl-HBACKS 



BIS 


»MERR#MFLAGSCP5J 


MOVB 


«32»MrLAG8(R5) 


MOV 


8E21,POINT(RS} 


MOV 


»T2BUr»Rl 


MOVB 


T2CNT2#T2CNTl 


MOV 


l2TEMP»T2TEMP+2 


BR 


500238 


jecho 


Answer to terminal 


lOCTAL 


rOPMAITS, 


MOV 


«T2BUr,Bl 


JSR 


PCTYPANS 



5002181 

5001781 



BIT 
BEQ 
RTS 



»MERR»MrLAG5CR5) 

500268 

PC 



ICHECK FOR TEN ITERATIONS 



5002781 
5003081 



CMpB 

BNE 

MOV 

RTS 

BR 

JMP 



T2SAVl» #10 
500278 

«T24#RPC(R5) 
PC 

500308 
T23A 



IRESTORF POINTERS 6 TEST THE BROADCAST (BEL) 
fWON'T ACTIVATE THE AUTOANSWER, 



MOV 

CLRB 

MOV 



»T28UF#R1 

T2CNT1 

«STX,R2 
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2308 


013344 


004737 


006654 








JSR 


PCfSECHO 


2309 


013^50 


012700 


020421 








MOV 


»SCODE,R0 


3310 


013954 


112737 


000007 


020424 






MOVB 


#7»SC00fc+3 


3311 


013562 


004737 


0071 10 








JSR 


PC#TYPE5 


3313 


013966 


013703 


000310 








MOV 


#200, |R3 


3313 


012973 


004737 


011216 








JSR 


PC»GETANS 


3314 


013576 


103737 


013212 








T8TB 


T2CNT1 


(9) 


013602 


001415 










BEQ 


500318 


3313 










20050 




jERPOR 


#4 RECVD ANSWERBACK FROM 8W0AUCAST 


2316 










20100 




I »•«*«««*»*«« 


2317 










20150 




1 




2318 


012604 


053765 


100000 


000004 






BIS 


#MERR#MFLAGSCHS J 


3319 


012612 


113765 


000004 


000004 






MOVB 


»4#MFLAGSCR5) 


3320 


013630 


013765 


013632 


000006 






MOV 


«E22»POlNt(P53 


2321 


013636 


013765 


012636 


000010 






MOV 


#T25»RPC(R5J 


3323 


013634 


000207 






20400 




RTS 


PC 


2333 


013636 










5003181 






3334 


013636 








20500 


T25I 


IIF IN 


MULTI LINE MODE SETUP NEXT LINE POlNTfcHS 


3339 










20950 




>IF SINGLE LINE MODE TEST KK^BOARU STUFI- , 


3336 










20600 




> 




3337 


013636 


032737 


000040 


001364 






BIT 


»mulxi#pcflag 


(9) 


013644 


001424 










BEQ 


500326 


3338 


013646 


004737 


0021 10 








JSR 


PCiLlNMON 


2339 


013652 


012765 


012734 


000010 






MOV 


#T25A#RPC(R5) 


2330 


012660 


032737 


000400 


001364 






BIT 


#LDONE»PCFLAG 


C9) 


012666 


001406 










BEQ 


500338 


2331 


013670 


042737 


000400 


001364 






BIC 


»ldonk»pcflag 


2333 


013676 


052769 


020000 


000004 






BIS 


»TD0NC,MFLAGS(H5) 


2333 


013704 










5003381 






2334 


013704 


012765 


011546 


000010 






MOV 


»T21 »RPC(R51 


2333 


013712 


000207 






21000 




RTS 


PC 


2336 


013714 


000512 










BP 


500348 


(3) 


013716 










5003281 






2337 


013716 


113737 


016134 


020424 






MOVB 


oloth»scooe+3 


2338 


013724 


012700 


020421 








MOV 


»SCODE»R0 


2339 


012730 


004737 


0071 10 








JSR 


PCiTXPfcS 


2340 


012734 








31100 


T25AI 






(4) 


013734 


012765 


0J3034 


000010 






MOV 


»T26#RPC(R5J 


2341 


013742 


012701 


013220 








MOV 


IT2BUP ,Hl 


2342 


013746 


012702 


000002 








MOV 


»STX,R2 


2343 


012752 


004737 


006654 








JSR 


PCfSECHO 


2344 








21300 




|5ET UP 


TO TEST HERE-IS KESt SINGLE LINE ONhi 


3345 










21350 




f 




3346 


012756 


012700 


013252 








MOV 


#HI#R0 


2347 


012762 


004737 


0071 10 








JSR 


PCiTYPES 


2348 


012766 


105037 


013312 








CLRB 


T2CNT1 


2349 


012772 


012703 


007640 








MOV 


#4000. yR3 


2390 










21600 




IREAD ANSWERBACK 


3351 


012776 


004737 


011216 








JSR 


PCGETANS 


3J53 


01 3002 


105737 


013212 








TSTB 


T2CNI1 


t9) 


013006 


001012 










BNE 


500358 


2353 










21750 




ICRRQR 


»5 NO ANSWERBACK FROM HERE-XS KtY 


3354 










21800 






3395 










21850 




f 




33S6 


013010 


052765 


100000 


000004 






BIS 


tMERR»MFLAG5(Rb) 


2337 


013016 


112769 


000003 


000004 






MOVB 


#5#MFLAG5CR5) 
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2 J58 


01 3024 


012^65 


01 3475 


000006 




MOV 




2339 


01 3032 


000207 






22050 


KTS 


PC 


2360 


013034 










500358 1 




236 1 










221 50 






2362 


01 30J# 








22200 


T26I iTEST 


CTL-E FUNCTION 


2363 










22250 






3364 










22300 


ISET 


UP TO TEST CTL*E FUNCTION 


3369 










22350 


1 




2366 


1 3034 


01276S 


01 1736 


0000 1 




MOV 


#T22»RPc(R5) 


2367 


01 3042 


012701 


013220 






MOV 


•T2BUF,Rl 


2369 


01 3046 


012700 


013305 






MOV 


#CE#R0 


2369 


013053 


013703 


007640 






MOV 


•4000»»R3 


2370 


013096 


I0S037 


013212 






CLBB 


T2CNT1 


2371 


013062 


004737 


007110 






JSR 


PC, TYPES 


3372 


013066 


004737 


011216 






USR 


PC#GETAN5 


2373 


013072 


10S737 


013212 






TSTB 


T2CNT1 


C9J 


0l3<t'76 


001013 








BNE 


500368 


2374 










32800 


1 ERBOR #6 NO ANSWERBACK FROM CTL-E KEIf 


2375 










22850 


|««#*«»«*#«« 


2376 










22900 


f 




2377 


013100 


03376S 


100000 


000004 




BIS 


•MERH#MFLAG8(R5) 


2378 


01 3106 


1 13'^65 


000006 


000004 




MOVB 


•6»MFLAGS(R5} 


3379 


013114 


012763 


013540 


000006 




MOV 


IE18,P0INT(RS) 


2380 


01 3122 


000307 






33100 


RTS 


PC 


238| 


013134 


000406 








BR 


500378 


C 3) 


013136 










50036SI 




2382 


01 3136 


032765 


020000 


000004 




BiS 


•TD0NE,mFlAgS(R5) 


2383 


013134 


012763 


011726 


000010 




MOV 


»T22»RPC(R5) 


2384 


01 3142 










50037SI 




2383 


013142 










5003491 




3386 


013142 


000307 






23400 


RTS 


PC 


2387 










23450 


}«*««««»««««« 




3388 










23500 


|THlS ROUTINE 


IS THE KEYBOARD INTERRUPT HAnOlER 


3389 










23550 


|FOP TESTS »1 


AND 12 


3390 










23600 






3391 










33650 






3393 




17791 


%/v i ' M 






T220I MOVb 


80VcRxB» (Rl J+ JSIOHE CHAR in PUInTeK 


3393 


013190 


0S 3737 


004000 


001 364 


23750 


BIS 


• OATAINrPCFLAG ;5LT DATA-l^^ FLAG 


2394 


013156 


^^|^^7 


000 101 


003744 


23800 


MOV 


«101,PDLADR jREENABLE THE RECVH 


3393 


01 3164 




007S64 




23850 


CLR 


DELAYT »AB0FT THE Tl«EOUT 


2396 


013170 








23900 


BTI 




2397 










23950 






2398 


1 3 1 72 










3000081 




C3) 


01317 2 










5W001SI 




C3) 


013172 


000207 








RTS 


PC 


2399 










24050 


1 »«»«««««««•»« 




3400 










34100 


,osabl lsb 




3401 


013174 


000 


003 




24150 


.BYTE 


0»3 JITERATION COUNTS 


2402 


013176 


000000 






24200 


T02BLKI .WORD 


ICTLCNT 


2403 


013200 


000000 






24250 


(WORD 


pPASS COUNT 


2404 


013302 


000000 






24300 


,WORD 


1 STATUS FLAGS 


3409 


013204 


000000 






24350 


.WORD 


IPOINTER 


3406 


013206 


011946 






24400 


9WORD 


T21 IHETURN PC 


3407 


013210 


000000 






24450 


T25AVII ,WORD 





2408 


013212 


000 






24500 


T2CNTli 9BYTE 





2409 


013213 


000 






24550 


T2CNT21 .BYTE 
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2410 


013214 


000000 


000000 




24600 


T2TEMPI 


jWQRD 


0r0 


2411 


013220 

013236 
013234 
013242 
013250 


000000 
000000 
000000 
000000 
000M00 


000000 

000000 

000000 
0H0000 


000000 

000000 
000000 
000000 


24605 


T2BUFI 


.WORD 


0»0f 0#0#0i070>0i0f 0f 0»0, } UUl'FEH FOH ANSvtbHbACK 


2412 










24690 








2413 










24700 


9NHST 


BEX 




2414 


0] 3252 


003015 


042504 


1151120 


2475k 


HIl 


.ASCIZ 


<l5><t 2>/DEPRES5 HfcHE IS -» Kfc.Y/<i5><|2> 


2415 


013305 


015 


052012 


050131 


24800 


CEl 


.ASCIZ 


<l5><l2>/TYFfc C0NTL»E/<ib><1 2> 


2416 










24650 








2417 


013326 


005015 


052012 


051505 


24900 


T2I 


•aSciz 


<15><12><12>/TE5T 2 A"To ANSheH/< l b>< l 2> 


2418 


013356 


047516 


040440 


051516 


24950 


E14I 


.ASCIE 


/NO ANSWERBACK HECVD/<15>< i2> 


2419 


01 3404 


047101 


041133 


041501 


25000 


El5l 


.ASCIZ 


/ANSBACK MSG OVER 20 CHAR5/< i 5>< I 7> 


2430 


01344H 


047101 


041123 


041501 


25050 


E16I 


.ASCIZ 


/AN5BACK MSG CONTAINED NULL/<i5><12> 


2421 


4!1347S 


110 


031105 


020105 


25100 


E17I 


.ASCIZ 


/HERE IS KE5t PlfJN'T TXMIT AN8BACK/< j b><l i!> 


2422 


013940 


0521^3 


026314 


030105 


25I50 


Eiei 


.ASCIZ 


/CTL-E niON'T TXMIT ANSBAC^/< t 5>< I 2> 


2423 


013375 


101 


051516 


042527 


25200 


E21t 


.ASCIZ 
.ASCiZ 


/ANSWERbACKS DIDN'T COMpAHE/< I 5>< 1 2> 


2424 


013632 


047101 


041 123 


041501 


25250 


E22I 


/AmSBACk RECVD fRom BROADCAST SEj,ECT/< 1 r/> 


2423 










25300 




.EVEN 




2436 










25350 


jLlST BEX 





Qlhhfhfd LA3& TERM T5T ?«ACYil i0S{l0b2) 03«»JAN«77 00101 PAGE J»12 

CZLAFasPlS 0J«JAN«78 1 1 8 20 LA36 OPTION TfcSTS SEU hi^ / 7 













25450 




















25500 


J « « » 


« » •» « 






2430 










25550 










2431 












1 TEST j 


TOP or 


FORM OPTlOfM 




2432 










25650 




OPEKATOP INTERVENTION 


REQUIRED IN SINGLE UNfc, MOOIC 


3433 










23700 




















2S750 


> # » « 


# « « # 






2439 










25800 




•ENABL 


LSB 




2436 










2S8S0 










2417 


10 1 J f VJif} 




014376 




25900 


IE3T3 I 


MOV 


ST3»R0 


fSU FOR IeST header 




£11 t 1 lA A 




0il701 








JSP 


PCMTYPE 




2439 


0l371fei 


01 2705 


01 4 J42 




26000 




MOV 


»T03BLK,R5 


ISET UP POINTED TO MODULE BLOCK 


2440 


1^1 37 i 4 


032737 


000040 


001 364 


26050 




BIT 


#MULTI#PCFLAG 


jCHECK FOR SINGLE Hi"!- >10UE 


2441 


013722 


001424 






26i0e 




BEQ 


38 


iSll^GLE MOt;E » BRANCH 


2442 


013724 


0t 2701 


0M0102 




26150 


181 


MOV 


»66«,Rl 


IFILL COUNT FOR u" FUkMS 


2443 


01 J730 


1 1 3702 


01 6 l67 




36200 




MOVB 


Fr,P2 


JMOVE TO TOP OF FORM 


2444 


01 3734 


004737 


006270 








JSR 


PCMECHO 




2445 


01 374i!? 


012702 


000006 




26300 


251 


MOV 


#ACK,R2 




344& 


013744 


0047 37 


006270 








JSR 


PC#MECHO 




2447 


01 3750 


005301 






26400 




DEC 


Rl 




2441 


013752 


001 372 






26450 




BNE 


28 






01 375^^ 


»'1<I70W 






26500 




MOV 


#DAS»R0 




2430 


013760 


004737 


00701 








JSH 


pc»mtype 




2451 


013764 


052763 


020000 


000004 


26600 




BIS 


9T0onE»MFIjAG5(R3J ;StT ATTEnTIqh DQ,iit FLAGS 


3493 










36650 












_ 

013772 








26700 




RTS 


PC 




2494 










26750 








2453 










26800 


|THlS 


SECTION For Single line 


MAmUAl INTERVENTION 


3436 










36850 










2497 


013774 


012763 


013774 


000010 


26900 


311 


MOV 


#36#»PCCR5) 


ISET RETURN Pc tQ HEHe 


2458 


01 4002 


012737 


1 461^1 


Ml 4356 


26950 




MOV 


»HDP5#T3SAVl 


|GET LIST OF FORM LEwGTHS 


2459 


014010 


012737 


014362 


01 4J54 


37000 




MOV 


#riLL3#T3SAV 


IGET FIL COUNT 


3460 


01 4016 


012700 


014443 




27050 




MOV 


»HUR3»R0 




3461 


014022 


004737 


0071 10 




27100 




JSR 


PC#TYPES 




3462 


014036 


01 2700 


1 4646 




27150 




MOV 


»HDR5Af R0 


fSET UP MESSAGE rtlTH 


2463 


01 4032 


1 12037 


014564 




37300 




MOVB 


(R0)*,HDR4+5 


1 INSTHUCIIONS FOR 3" 


2464 


014036 


1 12037 


01 4S6S 




37350 




MOVB 


(R0}4f HDR4'f 6 


iFORMS, 


3465 


014042 


1 1 1037 


014566 




27300 




MOVB 


(P0),HOR4+7 




3466 


014046 


012700 


014357 




27350 




MOV 


#HDR4#R0 


ISEND SU MSG 


3467 


014052 


004737 


007l 10 




27400 




JSR 


PCTXPES 




3468 


01 4056 


013700 


01 4356 




27450 




MOV 


T3SAVl,R0 




2469 


01 4^62 


1 1 2^37 


01 4S64 




275^^ 




MOVB 


(R0) + ,HDR4't.5 


|M0D1FY INSTRUCTIONS FOR 


2470 


1 4066 


1 1 2037 






27550 




MOVB 


{R0)+#HDP4+6 


INEXT LOOP 


247i 


01 4072 


1 12037 


014566 




27600 




MOVB 


CB0j+,HDR4+7 


3472 


014076 


010037 


014356 




27650 




MOV 


R0#T35AV1 


;SAVE THE LIST POINTER 


2473 


014102 


012702 


014124 




27700 


5SI 


MOV 


l68rR2 


} PASS 6$ AS VECTOR TO READ 


2474 


014106 


004737 


007124 




27750 




JSR 


PCrREADS 


I GO SET VECTORS 


2479 


014112 


012702 


035230 




2780fe) 




MOV 


»15000,»R2 


fSET UP 15 SEC OELAY 


3476 


014U6 


004737 


007034 




27850 




JSR 


PCiREADIO 




3477 


014122 


000406 






279t?0 




BR 


98 




3478 


014134 


005037 


007564 




27950 


6$i 


CLR 


OELAYT 


lABORT THE TIMEOUT 


3479 


014130 


052737 


004000 


001364 


28000 




BIS 


»DATAIN,PCFLAG 




3480 


014136 


000002 






38050 




RTl 






3481 


014140 


012700 


017730 




38100 


911 


MOV 


#Llf R0 




3482 


014144 


004737 


0»7U0 




28150 




JSR 


PC#TyPE5 


fSENU CH/LF 


3483 


014150 


042737 


004000 


001364 


28200 




bIC 


#DATAIN,PCFl.AG 


|IN CASE LINE w 



SLAFAa 


LA36 TERM TST 


MACYU 


i0AC1052) 


03»JAN 


'•77 00101 PAGE S-U 




ZLAFA, 


Pll 


3«JAN9.78 


11 120 




LA36 OPTION TESTS 






3484 


014156 


042765 


100000 


000004 


38250 




BIC 


«MfcRR»MFLAGS(P5) 1 IN CAS|: Ok READ ERROR 


348S 


014164 


117737 


000164 


014360 


28300 




MOVB 


8T3SAV,T3SAV2 


IGET FILL COUNT 


3486 


014172 


113702 


016167 




38350 




MOVB 


FF,R2 




3487 


014176 


004737 


006654 




38400 




JSR 


PC'SeCHO 


100 fOHM FEEL 


3488 


014302 


012702 


000006 




38450 


781 


MOV 


#ACK,R2 




2489 


014206 


004737 


006654 




38500 




JSR 


pcsecho 


jSENL FILL CHARS 


2490 


014212 


005337 


014360 




38550 




DEC 


T3SAV2 




3491 


014316 


001371 






38600 




BNE 


7$ 


ICOUNT NUT nONE • BHAWCH 


3493 


014220 


012700 


014427 




38650 




MOV 


#DASyR0 


JLINF.; OF DASHES 


3493 


014224 


004737 


0071 10 




38700 




JSR 


PCiTYPeS 




3494 


014230 


012702 


000012 




38750 




MOV 


#LF,R2 


ISEND CR/LF 


3495 


014234 


004737 


006654 




28800 




JSR 


PC»SEChO 




3496 


014340 


117737 


0001 10 


014360 


28850 




MOVB 


ST3SAV,T3SAV2 


|GET FILL COUNT 


3497 


014346 


113702 


016167 




28900 




MOVB 


FF»R2 


fOO FORM FEED 


2498 


014252 


004737 


006654 




38950 




JSR 


PC»SECHO 




2499 


014256 


012702 


000006 




29000 


esi 


MOV 


»ACK,R2 


ISENU ACK CHARS 


2500 


014262 


004737 


006654 




29050 




JSR 


pc»secho 




2501 


014366 


005337 


014360 




29100 




DEC 


T3SAV2 




3503 


014272 


001371 






29150 




BNE 


88 


ICUUM NOT OO^JE - BRANCH 


2503 


014274 


012700 


014427 




29200 




MOV 


#DAS«R0 




3904 


014300 


004737 


007110 




29250 




JSR 


PC»TVPES 


{Ll'^'t OF UASHtS 


3505 


014304 


012702 


000012 




29300 




MOV 


SLF,R2 




3506 


014310 


004737 


006654 




29350 




JSR 


PC#5ECH0 




3507 










29400 










2508 


014314 


005237 


014354 




29450 




INC 


T35AV 


IGET NEW FILL COUNT 


3509 


014320 


023727 


014356 


014651 


29500 




CMP 


T3SAVl,SHDR5E 


|ENO OF i^STHUC^^ON LIST? 


35I0 


014326 


001247 






39550 




BME 


A3$ 


}N0 " 00 NEXT 


3511 


014330 


05276S 


020000 


000004 


39600 




BIS 


»TDONE#MFLAGS(Rb) jSfcT ATTENllGr- i, (IUIjE FLAGS 


3513 










29650 










3513 


014336 


000207 






29700 




RTS 


PC 




3514 










29750 










2515 


014J40 


000 


003 




29800 




,BYTE 


0»3 


1 ITERATION CO'JNT 


3516 


014342 


000000 






29850 


T03BLKI 


(WORD 





ICTLCNT 


3517 


014144 


000000 






29900 




.WORD 





IPASS COUNT 


3518 


014346 


000000 






29950 




.WORD 





1 STATUS FLAGS 


3319 


014350 


000000 






30000 




9WORD 





1 POINTER 


3520 


014J52 


013724 






30050 




9WOPD 


IS 


IRETURN PC 


3531 










30100 










3533 


014354 


000000 






30150 


T3SaVI 


gWORD 





ISTORaGE 


2533 


014356 


000000 






30200 


T3SAVM 


9WORD 







3334 


014360 


000000 






30350 


T3SAV21 


gWORD 







3535 










30300 










3526 










30390 










3537 










30400 


sNLlST 


BEX 






3928 


014J62 


033 


025 


030 


30450 


FILL3I 


,BYTE 


I8.»21«f 24,f 33 


f36,»42i jFiLL COUNTS FOR lEST 3 


2529 


014370 


060 


063 


102 


30900 




aBYTE 


48.1 5l.»66.»72 


»84«M8< 


3910 


014376 


005015 


093017 


051505 


30950 


T3I 


•ASCIZ 


<15><12><12>/TEST 3 TOP OF FOHMS/< 1 5>< 1 ?> 


3931 


014427 


075 


036473 


036475 


30600 


DASi 


.A8CXZ 


/■■■■assBBs/< i5> 


3933 


014443 


120 


042522 


051533 


30650 


HDR31 


jASCII 


/PRESS TOF RESET SWITCh/< 1 b>< 1 2> 


3933 


014473 


101 


052106 


051105 


30700 




, ASCII 


/AFTER EACH SWITCH SETTlNG/<ib>< j 2> 


3934 


014526 


054524 


042520 


042040 


30750 




, ASCIZ 


/TYPE DELETE WHEN READY/< 1 5>< I 2> 


3935 


014557 


055 


042523 


030134 


30800 


HDR4I 


.ASCIZ 


/"-SET 3 INCH 


FORM FEED/ 


3936 




014610 






30850 




.EVEN 






3937 


014610 


027063 


065 




30900 


HDR5I 


.ASCII 


/3,5/ 




3938 


014613 


040 


032040 




30950 




•ASCII 


/ 4/ 




3339 


014616 


027065 


' 065 




31000 




.ASCII 


/5,5/ 





Ctlhfh^ LA36 TEHW TST MAC¥U 3HA(i052) 03«JANe77 PAGE J»14 

CZtAfAtPn 0J«JAN«78 11120 La36 OPTION TESTS 



3940 

3d4t 
2943 
3943 

3944 
3949 

3946 
3947 

3941 
2949 
3990 



014631 
014624 
014037 
014632 
014635 
014640 
014643 
014646 
014551 



040 

020040 
040 

027070 
040 

030440 
040 

020040 

0146S2 



033040 

067 
034040 

06S 
030461 

062 
033061 

06 3 



31030 
31100 
31150 
31200 
31290 
31300 
31390 
31400 
3l45e 
31S00 



HDf<5Ai 
HDPSEI 



, ASCII 

tASClI 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 
.ASCII 



31550 .LIST BEX 



,FVEN 



/ 6/ 
/ 7/ 
/ 8/ 
/8.5/ 
/ 11/ 
/ 12/ 
/ 14/ 
/ 3/ 
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2352 










31650 




.OSABl. 


LSb 




2553 










31700 










3954 










31750 


; « » « 


» # ♦ # 


«««»«#«» 


«««*»«««««*«»»*« 


3939 










31800 


1 








3536 










31830 


jTfcST4 


HORIZONTAL TAB OPTION 




2597 










31900 


f 


IF USING OTHER THAN 132 


COL PAPER CHANGE LUC "wIUlH" 


3998 










31950 


I 


TO ftPPROPPlATE VALUE, SEE WN C0M,4AW0 , 


3999 










32000 


1 








3960 










321^50 


1 » * « 


« « « » 


«»»»»««» 




2361 










32100 










2362 


014652 


012705 


013246 




32150 


TE5T4I 


MOV 


»T04bLK»R5 


fSET UP P()i(vTf>:R TO mOUULE bUUCK 


3563 


014656 


012700 


015320 




32200 




MOV 


»T4»R0 




2564 










32250 


J PRINT 


TEST HEADER 




2969 


014662 


0047J7 


007010 








JSR 


pc#mtype 




3966 


J 4666 


012737 


0l527ti 


015264 


3235k) 


T41 1 


MqV 


»TABL4#T4SAV2 




2967 


014674 


012765 


014702 


000010 


32400 




MOV 


»T42#RPC(H5) 




2968 


01 4702 


012702 


000033 




32450 


T42I 


MOV 


»CSC,R2 




2569 


014706 


013737 


016146 


015262 


32500 




MOV 


WIDTH, T4SAVt 




2570 










32550 


1 SEND 


ESC-2 TO 


RESET ALL TABS, 




2571 


014714 


004737 


006270 








JSR 


PC»MECMO 




2572 


014720 


^^12702 


000062 




32650 




HOV 


»'2,H2 




2973 


014724 


004737 


006270 








JSR 


PC»MECHO 




3574 


014730 


117737 


000330 


015 316 


3275i^ 




MOVB 


iT4SAV2» TAB 


I GET TAP CoUimT FHoh 1AHL4 


2575 


014736 


005237 


015264 




32800 




INC 


T45AV2 




2576 


014742 


105077 


000316 




32850 




CLRB 


PT45AV2 


IINIIIALIZC- COUNT TO Ziy 


2577 


MH746 


013701 


015316 




32900 




MOV 


TAB,Rl 




2978 


014752 


012700 


01773H 




32950 




MOV 


»L1»R0 




2579 










33000 


} SEND 


CH/LF 






2980 


014756 


004737 


007010 








JSR 


PCrMTYPE 




2581 


014762 


163737 


015316 


015262 


33100 


3SJ 


SUB 


TAb,T4SAVj 


;SU TAB C"Uf^X Pk-'R LIME 


2382 


014770 


002434 






33150 




BLT 


68 


iFINISHEU JHIS biNt m HPA^CH 


2583 










33200 








;T^Pt (TAB-t) PERIODS 


2584 


014772 


005301 






33250 


481 


DEC 


Hi 


I AS A FOhMATT for 


2983 


014774 


001405 






33300 




BEQ 


58 


JCUMPARISON 


2386 


014776 


012702 


000056 




33350 




MOV 


»',»R2 


»PRINT PERIOD 


2587 


015002 


004737 


006270 








JSR 


PC»MECHO 




2588 


015006 


000771 






33450 




BR 


4S 




2589 


015010 


012702 


000033 




33500 


SSI 


MOV 


IESC»R2 


ISET TAB 


2S90 










33550 


} SEND 


ESC" I TO 


SET A TAB 




2591 


015014 


004737 


006270 








JSR 


PC^MECHO 




2592 


015020 


012702 


000061 




33650 




MOV 


»'l'R2 




2993 


015b24 


004737 


006270 








JSR 


PC»MECHO 




3594 










33750 


} SEND 


A BACKSPACE 




3395 


015030 


012702 


000010 




33800 




MOV 


»10»R2 


1 


3596 


015034 


H04737 


00627M 








JSR 


PC»MECHO 




3597 










33900 


1 PRINT 


A V FOR REFERENCE 




3598 


015040 


012702 


000126 




33950 




MOV 


••V,R2 




3999 


015044 


004737 


006270 








JSR 


PC#MECHO 




3600 


015050 


1WS277 


000210 




34050 




INCB 


9T4SAV2 


flNCB TAB COUNT 


3601 


015034 


013701 


015316 




34100 




MOV 


TAB.Rl 


|GET TAB POS AGAIN 


3603 


015060 


000740 






34150 




BR 


38 


jFORMATT NEXT SECTION 


3603 










34300 


iLINE SHOULD LOOK LIKE THISi , , 




3604 










34250 










3603 


013062 


012737 


000003 


015266 


34300 


6$t 


MOV 


»3#C0UNT 


IDO 3 LINES OF TABS 


3606 


013070 


117737 


000170 


013316 


34330 


711 


MOVB 


»T4SAV2f TAB 


|GET TAB COUNT 


3607 


013076 


001440 






34400 




BEQ 


118 


;»0? - BRANCH OUT 
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) 



360i 


0lS 100 


005337 


01 3264 




34430 




INC 


T4SAV2 


3609 


1 S 1 


M 1 2700 


0177 30 




34300 




MOV 


#L1(R0 












34550 


1 SENU 


A CR/LF 




361 1 


015110 


004737 


0070 1 








JSR 


PCfMTYPE 


3613 


013114 


012702 


00001 1 




34630 


651 


MOV 


M1#R2 


361 3 










34700 


1 SEND 


A HOPIE- 


TAB 


3614 


1 S 1 20 


004737 










J8K 


PCiMECHO 


3613 


013134 


117737 


000 1 3 4 


1 3260 


34800 




HOVB 


0T4SAV2#T4SA 


3616 


013132 


012702 


000006 




34830 


9$i 


MOV 


lACKf R2 


3617 










34900 




FILL CHARACTERS 


3618 


015136 


004737 


006270 








JSR 


PC, MECHO 


3619 


015142 


005337 


015260 




33000 




DEC 


T4SAV 


3630 


013146 


001371 






33030 




BNE 


9S 


3631 


015130 


012702 


000 1 30 




33100 




MOV 


» 'Xf R2 


3633 










35 130 


f PRINT 


AN X 


UNDER EACH V 


3633 


015154 


004737 


006270 








JSR 


PC 1 MECHO 


3634 


015160 


003337 


015316 




33230 




PEC 


TAB 


363s 


0I5I64 


001 35 J 






33300 




BNE 


8S 


3626 


1 5166 


005337 


015264 




33350 




DEC 


T4SAV2 


2627 


015172 


005337 


015266 




35400 


I0$i 


DEC 


COUNT 


3638 


015176 


001334 






35450 




BNE 


7$ 


3629 


015200 


012700 


017051 




35500 


1181 


MOV 


#L3f R0 


3630 


01 5204 


004737 


007010 




35550 




JSR 


PC# MTYPE 


2631 


015210 


062^37 


000002 


015264 


3S600 




ADD 


#2f T4SAV2 


2632 


015216 


023727 


01 5264 


015315 


35630 




CMP 


T4SAV2# tTABo 


2633 


015234 


001 226 






35700 




BNE 


T42 


2634 










35730 








2635 


01 5236 


052763 


020000 


000004 


33950 




fi IS 


ITpONEf MFLAg 


2636 


015334 


012763 


014666 


000010 


36000 




MOV 


8T41 #RPC(R5) 


2637 


015242 








36050 




RT5 


PC 


2638 










36100 








2639 


015244 


000 


004 




36150 




BY^'E 


0# 4 


2640 


015246 


000000 






36200 


I04BLKI 


,WORD 





2641 




Ck(AiAtAaiA 






36230 




,WOPD 





2642 


01 5252 


000000 






36300 




.WORD 





2643 


1 5334 


000000 






36350 




jWOHD 





2644 


at S256 


1 4702 






36400 




.WORD 


T42 


264S 










36450 








2646 


015260 


000000 






36500 


T4SaV| 


.WORD 





3647 


015362 


000000 






36550 


T4SAVi 1 


.WORD 





2648 


013264 


000000 






36600 


T4SAV2t 


,W0RD 





2649 










36630 








2650 










36700 








2651 


015266 


000002 






36750 


counti 


.WORD 2 




3652 


015270 


004 


000 


002 


36800 


TABL4i 


.BYTE 


4#0f 2 


3653 


015273 


010 


000 


004 


36830 




sBVTE 


6.>0#4 


2654 


015276 


01 1 


000 


005 


36900 




.BYTE 


9,/0#5 


2655 


015J'*1 


020 


000 


010 


36950 




.BYTE 


I6.»0f 8. 


3656 


015304 


022 


000 


012 


37000 




.BYTE 


18.r0rl0, 


2657 


015307 


040 


000 


021 


37050 




.BYTE 


32,*0« 17. 


2658 


015312 


100 


000 


041 


37100 




.RYTE 


64,r0f 33,f 




015313 


000 














2659 


015316 


000000 






37150 


TAB! 


•WORD 




3660 


015320 


005013 


052012 


051503 


37200 


T4I 


.ASCIZ 


<15><12><12> 




015126 


020124 


020064 


047510 












015334 


044322 


047332 


052116 











|GET FILli COUNT rABK/2 



|DEC TAB COUNT 

|MORE TABS - BRANCH 

I FIX POINTER 

}D0 3 LINES 

|NOT DONE - BRANCH 



jGET NEXT TABLE fiNXHi 

J END OF TABLE? 
I NO - DO WbXT SET 



;StT ATTENTION And done FLAgS 



IITERaTION COUNTS 

fCTLCNT 

I PASS COUNT 

fSTATUS FLAGS 

JPOIMER 

I RETURN PC 

I STORAGE 



ITAB, TAB COUNT, FILL COUf^T 
> TABLE FOR TEST 4 
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015342 046101 032040 041101 
015350 005015 000 
2661 015354 37250 .EVEN 
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2b6 3 










3 M50 
























# « « # 
















37450 










3666 










37500 




VERTICAL TAB OPTION 




I 










3 '550 




SINGLE 


LINE TEST REQUIRES OPERATOR INTERVKNTIOn 


26oS 










37600 










2669 










37650 


> » » » 


« 4» « « 




«*•*«#«****»*»*»#« 


^^^'^ 










37700 




(ENAHL 


L5B 




267 1 










37750 










JO ' 4 


019334 


vli fvv 


16040 




37800 


Tests i 


MOV 


#T5,R0 


jsu Test healE" 


3673 


01S360 


013709 


016014 




37850 




MOV 


«T05BLK,Rb 




2674 


019364 


004737 


007010 








JSH 


pc#mtype 




267s 


015370 


033737 


000040 


001 364 


37950 




BIT 


#MULTI,PCFLAG 


• Milt vt r TMb* Mnni<"> 
friULilJ. piuUCif 


1676 


013376 


001046 






38000 




BNE 


48 


)YES «■ BRANCH UVEH I^TEHVI' NTION 


3677 


015400 


01 2700 


014635 




38050 




MOV 


»HDR5B»R0 


|SET up INSTRUCTIONS 


367§ 


015404 


1 13037 


01 4564 




38100 




MOVB 


(R0)+,HnR4+5 




3679 


015410 


1 1 2037 


01 4569 




38150 




MOVB 


(R0)+,HDR4+6 




2690 


0I54I4 


I 12037 


01 4566 




38200 




MOVB 


(R0}<f f MOR4<^7 




2681 










38350 


1 TYpt 


INSTRUCTIONS 




2682 


015420 


012700 


014443 




38300 


Tbl 1 


MOV 


IHDR3»R0 




3683 


015434 


004737 


007 110 








JSR 


PC#TYPES 




3694 


01 5430 


013700 


01 4557 




38400 




MOV 


»HDR4f H0 




268s 


015434 


004737 


007 110 








JSR 


PC#TYPE5 




3686 


015440 


012703 


015500 




38500 




MOV 


»38»R2 


|oU r UK iNjftHHwri Iv jg 


2687 


015444 


004737 


007 124 




38550 




asR 


PCf READS 


fINJTIALi2E VECTOR AREA 


2698 


015450 


013703 


035230 




38600 


2SI 


MOV 


»l5000.f H2 


1 ALLOW J 5 SEC» 


3689 


015454 


004737 


007024 




38650 




JSR 


PCf READlO 




269® 


015460 


032737 


004000 


001 364 


38700 




BIT 


»[)ATAIN,PCFLAG 




269l 


015466 


001770 






38750 




BEQ 


28 




2692 


015470 


042737 


004000 


001 364 


38800 




BIC 


»OATAIN,PCFLAG 




2693 


01S476 


000406 






38850 




BP 


49 




2694 








38900 


1 THIS SECTION 




369S 










38950 


I 








3696 


013300 


00310 J 1 


007564 






3$i 


CLR 


DELAYf 


_ 

lABORT THE TIMEOUT 


2697 


01 5904 


052737 


004000 


00 1364 


39090 




BIS 


#DATAIN,PCFLAG 


■ irt Af2 oiri^ 1 ir\/ir*ii r* u a d 
1 r uA\t KfiiwXe.VC<U v.riAK( 


2698 


015312 


000002 






39100 


1081 


RTl 






2699 










39150 










2700 










39200 






3t01 










39350 










3t02 


015514 


012737 


000003 


15266 


39300 


481 


MOV 


#2#C0UNT 




2703 


015522 


01 2769 


1 55 1 4 


0000 1 


39350 




MOV 


»4$»RPC(R5) 


JSET HETUHw TO 4$ 


3704 


0155^0 


0127 37 


10 In 1000 I 


1 60^2 


39400 




MOV 


»1, LINES 




3703 


015536 


00S037 


016036 




39450 




CLR 


TABS 




2^06 


015542 


012737 


000014 


016034 


39500 




MOV 


»12.»MAX 




2t07 


015550 


012702 


000033 




39550 




MOV 


(»ESC,R2 


IRESET ALL TABS 


2708 










39600 


> KSC«4 


RESET!) 


THE TABS, 




2709 


015554 


004737 


006270 








JSR 


PC#MECHO 




2710 


015560 


012702 


000064 




39700 




MOV 


•'4»R2 




3711 


015564 


004737 


0o627t* 








JSR 


PCrMECHO 




2712 


015570 


013701 


016032 




39800 


581 


MOV 


LINESf Ri 


IGET LINE COUNT 


2713 


015574 


012702 


000012 




39830 


681 


MOV 


#12, R2 




3714 










39900 


f SEND 


LINE FEED, 




2713 


013600 


004737 


006270 








USR 


PC#MECHO 




3716 


013604 


005301 






40000 




DEC 


Ri 




3tl7 


013606 


001372 






40050 




BN£ 


68 




2718 


015610 


012702 


000033 




4M100 




MOV 


8ESC»R2 


ISET TAB 
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JSR PCMECHO 
MOV »'3#R2 
I ESC-S SETS A TAB LOCATION, 



2719 


015614 


004737 


006270 






2720 


015620 


012702 


000063 




40200 


3731 










40250 


2722 


015634 


004737 


006270 






2723 


013630 


012700 


014427 




40350 


2724 










40400 


2725 


013634 


004737 


007010 






2726 


013640 


005237 


016032 




40500 


2727 


015644 


023737 


016032 


01 6034 


40590 


2728 


015652 


001346 






40600 


2729 


013654 


012737 


000001 


016032 


4^650 


2730 


015662 


012737 


000001 


016030 


40700 


3731 


01 5670 


012702 


00001 3 




40790 


2732 










40800 


2733 


015674 


004737 


006270 






2734 


015700 


012702 


00000b 




40900 


2739 










40990 


3736 


015704 


004737 


006270 






2737 


013710 


00533 7 


01bM30 




41050 


2738 


015 n4 


001371 






4 1100 


2739 










4U50 


2740 










41200 


2741 










41250 


2742 


015716 


013746 


016032 




41300 


2743 


015722 


012746 


01607 1 




41400 


2744 


019726 


004737 


010006 




41450 


2745 


015732 


012700 


016071 




41500 


2746 


015736 


004737 


007010 




41550 


3747 


015742 


012700 


014427 




41600 


2748 


015746 


004737 


007010 






2749 


015752 


005237 


0161432 




41700 


2730 


015756 


013737 


016032 


016030 


41750 


2751 


015764 


023737 


016032 


016034 


41800 


2752 


016772 


001336 






41850 


2793 


015774 


005337 


015266 




41900 


2734 


016000 


001325 






41930 


^755 


016002 


052765 


020000 


000004 


42000 


2736 










42090 


2757 


016010 


000207 






42100 


2738 










42150 


2759 










42200 


2760 


016012 


000 


002 




42250 


2761 


016014 


000000 






42300 


2762 


0160I6 


000000 






42350 


2763 


016020 


000000 






42400 


2764 


016022 


000000 






42450 


2765 


016024 


015420 






42500 


2766 










42550 


2767 


016026 


000000 






42600 


2768 


016030 


000000 






42650 


2769 










42700 


2770 


016033 


000000 






42750 


2771 


016014 


000000 






42800 


2772 


016036 


000000 






42850 


2773 


0I6040 


00301s 


0520^2 


05I505 


42900 




016046 


030124 


020*165 


042526 





JSR 

MOV 



PC^MECHO 
SDAS,P0 



7St 



PCiMTyPE 
LINES 
LINES, MAX 
58 

81, LINES 
»1»15SAV1 
»13»R2 
«TAB COMMAND, 
PC#MECHO 
#ACK,R2 
CHARACTER, 
PC#MECHO 
T5SAV1 
9$ 



JSR 
INC 
CMp 
BNE 
MOV 
MOV 

SSI MOV 
I SEND A VERT 
JSR 

981 MOV 
J SEND A FILL 

JSR 

DEC 

BNE 
I 

J CONVERT NO, OF LINES FOR OUTPUT MSG 



111 TABS YET? 
|N0 - BRANCH 
iRESET LlNt, COUf'iT 

JFILL COU^J■^ 



MOV 


LINES, -(SP) 




MOV 


»T52»«(SPJ 




JSR 


PC,BIN2PA 




MOV 


»T52,R0 




JSR 


PCMTYPE 




MOV 


»DA5,R0 


>8U LINE OF DASHES 


JSR 


PC,MTYFE 




INC 


LINES 


|NE»« LINE COU'O 


MOV 


LINES, TSSAVl 


jFlLL COUNT BtLli^ES 


CMP 


LINES, MAX 


111 TABS DONE? 


BNE 


88 


|N0 " CONTINUE 


DEC 


COUNT 


|DU 2 PAGES TUTAL 


BNE 


78 


IHE'DO PAGE 


BIS 


#TDONE,MFLAGSCRb) }Sfc.T AiTENf 


RTS 


PC 




,BYTE 


0#2 


lIIERATIyv Co'JnTS 


,WORD 





ICTLCNT 


jWORD 





IPASS COUiU 


.WORD 





ISTATUS FLAGS 


gWQRD 





IPOINTER 


,WORD 


151 


IRETURN PC 



TSSaVI ,WORd 

I5SAV11 9WORD 

LINE5I .WORD 

MAXI .WORD 

TABS I . WORD 

T5i .ASCIZ 



<15><12><13>/TEST 5 VERTICAL TAH/<1'5><12> 
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016054 052122 041511 046101 

016062 0S2040 041101 005013 

016070 000 
2774 016071 060 030060 030060 429S0 

016076 000 

2773 016100 43000 
3776 43050 



sAScIz /00000/ 



sEVEN 

.DSABL ISB 
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2771 






43150 




.SBTTL 


STORAGE i. 


CONSTANTS 


2779 






43200 


l» » « « 


■ * * * 


* * * * » 


***************** 


27S0 






43250 


1 


PROGRAM STORAGE, 


CONSTANTS, ANU VARIABLES 


2781 






43300 










3712 






43350 




.EVEN 






2783 


016100 
016106 


000000 000000 
000000 000000 


000000 43400 
000000 


TEMPI 


.WORD 


0f 0f 0#0i0 


,0 ITEMPORAHY WORK AREA 


2784 


016114 


000004 


43430 


INBUri 


• BLKW 


4 


unput buffer 


2785 


016124 


177870 


43500 


SWHl 


177570 




ISWIICH REGTSTEH POIM'EW 


2786 






43550 








fMAY BE CHAMGED 10 i7b 


2787 






43600 


1 **************** I/O DRIVER WORK AREA ******************* 


2788 






43650 










2789 


016126 


000000 


43700 


DLFLAGI 


iWORD 





iLlNt FLAG ^Q^D 


2790 


016130 


000000 


43730 


DLADRl 


.WORD 





JLINE AODR WORD 


2tfl 


016133 


000000 


43800 


DLVECl 


.WORD 





}L1"^E VECTOR wOHO 


2t92 


016134 


000000 


43850 


DLOTHI 


.WORD 





fLI^iE "nXHER i^OHD 


2793 


016136 


000000 


43900 


DVCPXBl 


.WORD 





JRECIEVEH DATA BUFKEF 


2794 


016140 


000000 


43950 


UVCTXSl 


.WORD 





ITRanSHI STATUS RfctilSlfcH 


2793 


016143 


000000 


44000 


DVCTXBi 


.WORD 





jTRANSHIT UATA HuFFEH 


2796 


016144 


000000 


44*55fc» 


TXVECl 


.WORD 





iTRANSMIf INTERRUPT VfcCTUH 


2797 






44100 










3798 






44150 


}««««»«»««««« 


GENERAL USE 


******************************** 


2199 


016146 


000204 


44200 


WIOTHI 


.WORD 


132. 




2800 


016150 


000000 


44250 


SAVCi 


.WORD 









016152 


000000 


44300 


NEXTl 


.WORD 





;NEXT TEST NO, 


2802 


016154 


000000 


44350 


INTESTI 


.WORD 





ICURRENT TEST 


2803 


016156 


000000 


44400 


TESTAOl 


.WORD 





ICERPENT TCST PC, 


3804 


016160 


000000 


44450 


ONLINI 


.WORD 





f CURRENT LINK UNDEk its? 


2805 


016162 


000000 


44500 


NXTLINi 


.WORD 





JNEXT LINE TO TEST 


3806 


016164 


016114 


44550 


PTHi 


INBUF 




I INPUT BUf-'t ER POlNTLf. 


2807 


016166 


177 


44600 


DELt 


.8XTE 


177 




3808 


016167 


014 


44650 


FFI 


.nifTE 


14 




3809 






44750 




.EVEN 






2810 






44800 
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2013 
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2B17 

3S1§ 

2819 

3S20 

3831 

2833 

3823 

3824 

382S 

3836 

2827 

3838 

2839 

2830 

2811 

2813 

3833 

2831 

283S 
3836 

2837 

3838 

2839 

3840 

2811 

2842 



016170 
016176 
016200 
016206 
016210 
016316 
016320 
016336 
016230 
016236 
016340 
016346 
016250 
016356 
016360 
016366 
016370 
016276 
016300 
016306 
016310 
016316 
016530 
016326 
016130 
016336 
016340 
016J46 
016390 
016356 
016360 
016366 
016370 
016376 
016400 
016406 
016410 
016416 

016420 
016436 
016430 
016436 
016440 
016446 
016450 
0164S6 
016460 
016466 
016470 
016476 
016900 



000000 
000000 
000000 



001400 
000H00 
003000 
000000 
002400 



003400 
00000^ 
00400M 
000000 
004400 



005000 



OM5400 

000000 



000000 

006400 



007000 

fl00000 

007400 



010400 

000000 
011000 



012^00 
000000 
013400 



013000 

000000 
013400 



014000 

000000 



177360 
173610 
175620 
175630 
173640 
176S00 
176510 
176520 
176S30 
175650 
175660 
175670 
175700 
175710 
175730 
17573M 
175740 
176540 
176550 

176560 
176570 
176600 
1 76610 
175750 
175760 
17577y 



000000 
000000 



000000 
000000 
000000 



14900 
44950 
45000 
45050 
43100 

45150 

45300 



000000 45350 
000000 45300 
000000 45390 
000000 45400 
000000 45450 
000000 45500 
000000 45550 
45600 
45650 
45700 
45750 



0(10000 45800 

000000 45850 

000000 45900 

000000 43950 

000000 460H0 

46050 
000000 46100 

000000 46150 

46200 

46350 

000000 463H0 

000000 46350 

000000 464H0 



I ^ # « # 
I 

LIN00I 
LIN01I 
L1N02I 
LIN03I 
LIN04I 
HN05I 
LIN06I 
L,IN07I 
LIN10I 
LINU i 
LIN12I 
LIN13I 
LINl4i 
HN15I 
LIN16I 
LIN17I 
LIN30I 
LIN21I 
LIN22I 

LI<^23I 
LXN24I 
i,IN35l 
L1N36I 
L1N27I 
LIN30I 
LIN31 I 



LINE iNTEHrACE TABi,E 



» e » 
» » » 



»word 
«word 

,wORd 
i WORD 

9 WORD 
,woRd 
jWORd 

,woRd 
*wobd 

gWQRD 
.WORD 
»wORd 
swORp 
,woRu 
9WORD 
.wORp 

sWORp 
9 WORD 
fWORp 
s»»ORD 
.WORD 
9W0RD 
eWORD 



0* 177560i0»0 
0»175610#0»40{(1 
01 175620»"# 1000 
0#175630»0# 1400 
0»175640»0»2000 
0« I7650»f 0r 2400 
0# 176510»«» J000 
0»176530»0»3400 
0f I76530f 0f 4000 
0# 175650»0»4400 
0» 175660»»»5000 
0» 175670»0#5400 
0» 175700,0,6000 
0# 175710,0,6400 
0» 17572010, 7000 
0, 175730,0,7400 
0, 175740,0, 10000 
0, 176540,0, 10400 
0, 176550,0, 11000 

0, 176560,0, 1 1400 
0, 176570, H, 12000 
0, 176600,0, 12400 
0, 176610,0, 13000 
0, 175750,0, 13400 
0, 175760,0, 14000 
0, 175770,0, 14400 



iriRSf wORd I FLAGS 
IBIT lb = DvC PRt^b^Jl 
»B1T 7 a DVC SEbtC^KD 
IHlT 4 = ABORT FLAG 

iBiT 3 Thru 

IBIT s lrRuh cu"^ir 



iTriC OEVlCfciS InTeRHUPT 
|VecTO« lSUPFl.Ife;D BY PRuGPam) 



JwURD FOU" t 
I Bits 7 THRU 
I WILL bE SET TO 
JUMGuE SKLKCT CODt 

jBiTs 13 Thru 8 
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016506 


014400 
















2843 


016510 


000000 


176000 


000000 


46450 


LIN32I 


,WORP 


0, 176000,0, 15000 




016516 


01500M 
















2844 


016530 


000000 


176010 


000000 


46500 


LIN33I 


9WOPU 


0, 176010, 


0, 15400 




016336 


013400 
















384S 


016530 


000000 


176020 


000000 


46550 


HN34I 


,wORp 


0, 1760201 


<it't 16000 




016536 


016000 
















3846 


016540 


000000 


176030 


000000 


46600 


LlN35t 


iWOPD 


0, 1760301 


■0, 1 6400 




016346 


016400 














0, 17000 


2847 


016550 


000000 


176040 


000000 


46650 


LIN36I 


9WORD 


0, 176040, 




016556 


017000 














0, 1 7 400 


2849 


016560 


000000 


176620 


000000 


46700 


HNJ7I 


sWORp 


0,1766201 




016366 


017400 






46750 










2849 


016970 


000000 


176630 


000000 


L1N40I 


sWOPp 


0, 176630,0,20000 




016976 


030000 
















2850 


016600 


000000 


176640 


000000 


46800 


L1N41I 


9W0RD 


0, 1766401 


10, 20400 




016606 


030400 












0, 1766501 




2851 


016610 


000000 


176650 


000000 


46850 


LIN42I 


twORp 


>0, 21000 




016616 


021000 
















2852 


016630 


000000 


176660 


000000 


46900 


LIN43i 


9 WORD 


0, 1 766601 


10,21400 




016636 


031400 












0, 1766701 




3833 


016630 


000000 


176670 


000000 


4695P 


HN44I 


9WORD 


»0, 22000 




016636 


023000 
















3834 


016640 


000000 


176050 


000000 


47000 


HN45t 


9WORD 


0, 1760501 


10,22400 




016646 


033400 
















2855 


016650 


000000 


176060 


000000 


47050 


LIN46I 


.WORD 


0, 176060,0, 23000 




016656 


023000 












0, 176070) 




2856 


016660 


000000 


176070 


000000 


47100 


LIh47l 


9 wpRp 


r0, 23400 




016666 


023400 
















2857 


016670 


000000 


176100 


000000 


47150 


LIN50I 


9W0RD 


0, 1761001 


r0, 24000 




016676 


034000 
















3838 


016700 


000000 


1761 10 


000000 


47200 


LINSH 


9WOPD 


0#176110, 


r0, 24400 




016706 


024400 
















2839 


016710 


000000 


176l2n 


000000 


47250 


LIN52I 


9WORD 


0, 1761201 


»0, 25000 




016716 


025000 
















2860 


016730 


000000 


176130 


000000 


47300 


L1N53I 


.WORD 


0, 1761301 


25400 




016736 


035400 
















2861 


016730 


000000 


176140 


000000 


47350 


LIN54I 


9WORD 


0, 176140,0,26000 


016736 


02600W 
















3862 


016740 


000000 


176150 


000000 


47400 


HN55I 


»word 


0, 1761501 


r0, 26400 




016746 


026400 
















286J 


0167S0 


000000 


176160 


000000 


47450 


LIN56I 


«word 


0# 1761601 


»0, 27000 




016756 


027000 
















2864 


016760 


000000 


176170 


000000 


47500 


L1N57I 


sWORD 


0# 176170, 


r0, 27400 




016766 


027400 
















3865 


016770 


177777 






47550 


tabendi 


9WORD 






3866 










47600 











jBiNARi LINE ^0, 
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4 7700 


1 « 4t « 






2B69 










47750 


I 


» V C Tfi* 














47800 




1 NLIST 


BEX 


2871 










47850 








2872 






0951 03 


0403 1 4 


47900 


r«<OGIU 1 


9 ASCI I 


* 1 3'* 1 4'/CZLAFA0 LAJo OrijUw!' lr,oio/ 




1 '030 


00S0I5 


042522 


052123 


47950 




, ASC X I 


^ 1 3''» 1 2'' "t<" * * "» 13'2' 


2U74 






00501 2 


00001 2 


48000 


L3 1 


* afrT» 


*13'*12'*12'*12' 


2875 


01 7056 


047503 


0465 15 


047 101 


48050 


uir&nD < * 
H&nUH 1 1 


, ASwXZ 


^w.v'^piAriU oucwAnl 1 ' ^ I 3'^ 1 2'* 1 2 


2876 


01 7 103 


133 


020040 


020040 


48 100 




« ASC 1 1 


/S SINGLE LINfiii MODE/< 1 3>< 1 2X I * 




017135 


llS 


020040 


020040 


48150 










0171 66 


0201 2 1 




%} ^x)v 






« ASCI I 


/Q OtUUCiNte. Td5 1 0/< 1 5>< 1 «X 1 ' 






047 122 


200 4n 




48230 




f asch 


/um qiiiu Tccr nikiM /^4>«^^40'k^4^ 


2880 


01 7245 


104 


020 1 1 6 


020040 


48 300 




a ASCI I 


/UN U"Ur ui.no " n " / < 1 3 J"* j 2'* 1 ' 


2881 


01 7275 


101 


0201 1 6 


020040 


48350 




, ASCII 


/AN ADD LINE "N" /<15><12><1> 


2882 


017 324 


020124 


020040 


020040 


48400 




> ASCII 


/T type line table /<15><12><1> 


3883 


017356 


047127 


020040 


020040 


48450 




eASCI I 


/WN CHANGE "WIDTH" TO N/<]15><12><1> 


2884 


017413 


114 


020040 


020040 


48500 




g ASCI I 


/L LOOP ON ERHOH /<15><12^<1> 


2883 


017443 


110 


020040 


020040 


48550 






/n HAij I Uf» CiKHUr ''15'<12'^l* 


2886 


017473 


103 


020040 


020040 


48600 




ASC 1 1 




2887 


0l7S42 


0201 16 


020040 


020040 


48680 




*afr 1 T 


/III TNUTRTT Dli'DnDTC v^.^* 

/" 4.1'niDx* nc^funio '*15''*12'*1' 


2888 


01 7S74 


020120 


020040 


02004P 


48 700 






/ f r"*"! c<nnUr< MtrUniO ''15'^12'^1 


2889 


017632 


031305 


020103 


020040 


48750 




*afr T T 


/CiDV. * vJ CjAl!.v.UiC- WU~''iAWU O i K A " Ij / % J J) ^ < } 2 ' ^ J 2 


2890 


I 7675 


00501 5 


04601 2 


047 111 


48800 


MP* ADD -1 1 




%13'Sj2'*12 ''^'* '"" Kuwn VcviUH obij/ 


289 1 


1 7730 


00S0 1 3 


000 




48850 


Ll 1 




< 1 1 2* 


2892 


017733 


060 


020060 


020040 


48900 


Lit' 1 


9 ASCI I 


/00 J7/ 


2893 


017743 


060 


030060 


020060 


48950 


DliAD 1 


« ASC 1 1 


/0000 / 


2894 


017752 


030060 


020060 


020040 


49000 


DLV 1 


, ASCIZ 


/000 / 


2893 


017761 






047322 






, ASC IZ 




2896 


0200 1 7 






037477 


49100 




% Sr> T 7 






020033 


026493 


046053 


047111 


49130 


EH2 1 




/aaaaT 1Mb' T M V A f f 11 / ^ 1 K ^ 4 1 % ^ 1 V 


2898 


020053 


116 


0201 17 


047111 


49200 






yuri TMTB'DD{it]'r (In 'ryMTT/^>L'v^a>iN 


2899 


020105 


104 


047522 


050 1 20 


49250 




* . cr ry 

* » e^T^ 


f UtyvrrCtiJ f 


2900 


020117 


0S2 


00501 5 


000 


49300 


Si 1 


« ASC I Z 


/»/<15><12> 


2'^01 


020133 


013 


051012 


040505 


49350 


HDX t 


(ASC I 'it 


< 1 5X 1 2*/f^EADY /<15*<12> 


2902 


0201 36 


0050l5 


040320 


05 1523 


49400 


EOPM 1 




^ J 3^^ 1 2'' i^AO" 00000 ifcoi 00/*1j'*12' 


2903 


0201 66 


00301 3 


025052 


020052 


49450 


EOTM| 


• 


<15^*12^^*** END OF TEST 00/<i5**12^ 


2904 










49500 










0202 1 3 


K 

015 


0900 1 2 






sw 


c 

s AOCI2 


* 1 3''* 1 2'' "CFLAG I 000000 /*15><12* 






03* 103 


tiSVS J 


05 1 S23 


49O00 






yirvfC'eKTyB" trDonuc t TisiSi'y 
y o Ak. too 4 V C< E.KKUnCI t t L/ 1. >ic</ 


2907 


020270 


030060 


042040 


047522 


49650 


1 1 


* A5CIZ 


/00 DROPPED /< J 5 1 2^^ 7 ^ 


2908 




047316 


046040 




49700 


E 1 9 1 


J ASCI Z 


/NO LINES AVAILABLE FOR ■IEST/<15>< 1 2^*7* 


2^09 


020J43 


114 


047! 1 1 


020105 


49750 


E20i 


8&SCIZ 


/LINE BE«SfcLECTED/<l5><l2> 


2910 


020370 


047303 


051316 


0461 17 


4980if 


CTLMi 


9 ASC I Z 


/CONSOLE CONTROL?/ 


29U 










49850 








3912 


020411 


004 


003401 


000002 


49900 


AliLONi 


.aSciz 


<4><l><7><2> ISELECT ALL ESCAPE StUUEi^CE 


29i3 


020416 


000404 


000 




49950 


ALLOFFl 


,ASCIZ 


<4><l> iDESELECI ALL SEUUfc.NCE 


2914 


020421 


004 


001401 


000000 


50000 


SCODEl 


, ASCIZ 


<4><1><3><000> jSELECT UNIQUE SfcUUENCfc 


291S 


030426 


000404 


001003 


000 


30050 


NSELCl 


.ASCIZ 


<4><l><3><2> JBAO SELECT SEOMENCF 


2916 




020434 






50100 




bEVF.N 




2917 


020434 


000060 






50150 


STACK2I 




48, 


2918 


030574 


000^^36 






50200 


STACK3I 




30. 


2919 


020670 


000000 






50250 


ENOSI 


jWORD 





2920 




001102 






503t40 




aENO 


START 
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ABO 


a 


000020 


CTLBLK 


001364 


EHRVEC» 


ACK 


m 


000006 


CTLC = 


000003 


E«0 


ADDC 




000004 


CTLCNTB 


000000 


ERl 


ALLOFF 


020416 


CTLG s 


000007 


EH2 


ALLON 




030411 


ctlgx 


003064 


EH7 


ANSHDR 


011472 


CTLH s 


000010 


ESC a 


ATTN 


m 


000200 


CTLK a 


000013 


ETX 8 


A20IN 




007676 


CTLL a 


000014 


ETYPE 


A2SAV 




010004 


CTLM 


020370 


E10 


A3$ 




014046 


CTLN s 


000016 


E12 


BXN2DA 


010006 


CTLP a 


000020 


E14 


BIT0 


s 


000001 


DAS 


014427 


E15 


BXT00 


s 


000001 


DATA 


004776 


E16 


81X01 


B 


000002 


DATAIN8 


004000 


El7 


BIT02 


B 


000004 


DATA2 


005000 


El8 


BIT03 


S 


000010 


LDI5P s 


177570 


El9 


8IT04 


8 


000020 


DECODE 


004230 


E20 


BITwiS 


8 


000040 


DECSAV 


004774 


E21 


BIT^6 


S 


000100 


DECTBL 


004656 


E22 


8ITh7 


a 


000200 


DEL 


016166 


E9 


BIT08 


8 


00040f* 


DELAYS 


007530 


FF 


BXT09 


S 


001000 


DELAYP® 


104006 


FILL3 


BlTl 


8 


000002 


DELAYT 


007564 


flagda 


BIT10 


S 


002000 


DIGITS 


010162 


FLAGl a 


BITll 


a 


004000 


DLAD 


017743 


FLAG2 a 


8IT12 


8 


010000 


DLADR 


016130 


GETANS 


BIT13 


8 


020000 


DLFLAG 


016126 


GETSRC 


BIT14 


m 


040000 


DLOTH 


016134 


GETSivS 


BITIS 


8 


100000 


DLP = 


100000 


GNL 


81T2 




000004 


DLV 


017752 


GNi 


8ITi 


m 


000010 


DLVEC 


016132 


GN2 


BIT4 


s 


000020 


DF 


020105 


GN3 


BITS 


m 


000040 


DROPC s» 


000010 


GN4 


Bir6 


a 


000100 


DR0 


020242 


GN5 


BIT7 


8 


000300 


DRl 


020270 


GH 


BIT8 


S 


000400 


DSMR B 


177570 


G&EL 


B1T9 


m 


001000 


DTEND 


004774 


GVL 


BPTVECa 


000014 


DVCRXB 


016136 


GiA 


BUILD 




005640 


DVCTXB 


016142 


GiB 


CATCH 




006126 


DVCTX5 


016140 


GiC 


CE 




013305 


ECHO 


005044 


GiD 


cflaGs 


003032 


EMTABL 


006230 


HALTC 8 


CHARS 




010310 


emtbos 


006162 


HALTOES 


CHfCw 




005006 


EMTVECa 


000030 


HDR3 


CMOEBR 


003063 


ENDS 


020670 


HUH4 


CNTOA 




010160 


CNQ a 


000005 


HDr3 


CONSUM 


017103 


EOL a 


004000 


HDR3A 


CON 




010662 


EOP 8 


020000 


HDR3B 


CONSON 


003332 


EOPM 


020136 


HDR5E 


COUNT 




015266 


EOT s 


040000 


HEADRl 


CB 


m 


000015 


EOT^ 


020166 


HEADR2 


CRLF 


m 


000200 


ERROR 


005124 


HI 


CSI 




004000 


ERRSAV 


005434 


HT 8 



PAGE 4 



000004 


ICNT s 


1777 In 


LI«44 




017761 


INB^F 


0161 1 4 


L I N 4 b 


k^J 6640 


020017 


INHR B 


000t'4?» 


LI.J40 


kU6<SbH 


020032 


INHRPTs 


020<^wn 


Ll.^47 


0l6febW 


0201^55 


INTEST 


016154 


LH-bfi 


feil 667^? 


00003 3 


iwTRAP 


007162 


LiNbl 


tfl6 70fc"' 


000003 


lOTVECs 


00002i^ 


L1W52 


Ml 67 in 


006240 


ISP s 


005726 


LI ^53 


016 721^ 


011137 


1SP2 = 


022626 


LHJ54 


0lb73i'' 


011045 


ITRAF a 


104004 


LlNbb 


4^16740 


01 3356 


LDONfc a 


000401^ 


LI 


ir»l 6 75t^ 


013404 


LF = 




LI^MbV 




01 3440 


LIN 


0177J3 


Lf»UPC K 


1000104? 


013475 


LINENO 


001 370 


Lf'UPOts 


040000 


013540 


LINES 


016i^i2 


LOOPi 


45 4 


020306 


LINESE 


0022<^4 


LOUP 2 


0W1466 


020345 


LiNMON 


002 U yi 




017 7 30 


013575 


LIN00 


0l6l7(^ 


L3 


«1 yc^ibl 


013632 


LlNfeU 


01620M 


■lACHEH 


v1W((5004 


01 1005 


HN4)2 


01621W 


HAOCR = 


0;ri3w00 


016167 


LIN03 


016220 


MAX 


^-^l 61^34 


01 4362 


LIN04 


01623vl 


Mfc:CHU 


006 27i^i 


010161 


L1N05 


01624t^ 


iAK.Ry s 




000001 


L1N06 


01625('' 




1(^0377 


000002 


HNbi7 


016265' 


MKLAGba 




011216 


LlNifcj 


0162 /v! 


HSAVt 


yMbb46 


003350 


UN 11 


0l63rf(^ 




srfw2432 


003130 


HN12 


016 310 


hT«> \ 


i''0 245 2 


002556 


LIN13 


01632^^ 




k*l'7l^in 


002600 


L1N|4 


0163 30 


MULTl = 


('1l''Kl^4t^ 


002604 


LINI5 


01b345^ 






002612 


L1N16 


0l63btt 




^'lVl2'^0^^ 


002644 


LINl 7 


01636') 


NfcXT 


w1 6152 


002650 


LIN20 


0l637n 


i.OUP a 


MV!itl240 


011 100 


LiN21 


01640^^ 


NOP s 


i'ikiti24k' 


010734 


LIN22 


016410 


NMfcU s 




002332 


LIN23 


016420 


-iSELC 


02^1426 


002340 


LIN24 


0l643fei 


fiXlLliN 


(nl6i 62 


002344 


HN25 


016440 


OCT ALC 


0Ub2w 


002356 


LIN26 


016450 


ONLll' 


H1616H 


002370 


LIN27 


016460 


U2ASC 


i^w'7b6b 


000200 


LIN30 


0l(,4/^ 


PASCHia 




100000 


L1N31 


01650M 


PC FLAG 


364 


014443 


LIN32 


016510 


PIHU a 


1 77772 


014557 


L1NJ3 




plHQVfc^s 


0V;i324^' 


014610 


LIN34 


016530 


POifrr » 


k/MK)((?06 


014646 


HN35 


01654H 


PHI 


»1 0424 


014635 


LiN36 


016550 


PRINT a 


i!{i^tO020 


014651 


LIN37 


016560 


PKliMTTs 


010»(50(f1 


017056 


L1N40 


016570 


PHlH a 


0W0KS00 


017676 


LIN41 


016600 


PRI4 a 


0Wt«200 


013252 


L1N42 


016610 


PR17 a 


01(^034^' 


00001 1 


LIN43 


016620 


PHOcaO 


016772 
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PRTLTB 


007212 


5WB 




016124 


TKV « 


000060 


T4SAV1 


»15262 




0Hid Jlr)0 


PBTTBLs 


1 04002 


SWRTST 


003006 


TKVEC • 


000060 


T4&Ay2 


015264 




0t^0l 10 


PR0 8 


000000 


5WTE8T 


0001 72 


TPB 8 


177566 


T41 


01 4666 




0fr^fcll 10 


PRl SI 


000040 






00000 1 


TPS 8 


177964 


T42 


014702 




00H1 10 


PR2 a 


000100 




a 


00000 1 


TPVEC a 


000064 


15 


01 6040 


SNSKl^a 


10 


PR3 s 


000I40 


SW01 




000002 


TKAPVEa 


000034 


TSSAV 


016^26 


5f^SK2 a 


W0i''l 10 


Pr4 s 


000200 




8 


000004 


THTVEC* 


0000I 4 


T5SAV 1 


016030 


SmSKJ a 


000210 


PR9 a 


000240 




9 


000010 


TSCCNT 


002036 


T51 


015420 


SN5K4 8 


0M01 HI 


PR6 s 


000 300 






000020 


T5CPTH 


002034 


T52 


01607 ) 


S^SKS a 


0110 U0 


PR? a 




5W05 


s 


000040 


TSTBli 


002040 


UPDAIE 


002660 


S^SK6 = 


0t'l^ 1 1^ 


PS 8 


177776 


5W06 


» 


000 1 00 
000200 


TSTCIL 


00 1 446 


WIUTH 


0161 46 


$NSK7 8 


0001 10 


PSW s 


177776 


SW07 


m 


T8TM0N8 


050000 


SBGNLEs 


177777 


SSAVLfcs 


177777 


PTR 


016 164 


SW08 


a 




TXTHAP 




ttPFLGa 


00040^ 


$SSK0 a 


050023 


PWBViCs 


000024 


5W09 


« 




TXVEC 


016144 


SFfANOa 


000 3 1 ('1 


ISVPC 'a 


«)i!i0204 


ROSAV 


003775 


SWi 


m 




TlfPANS 


011 306 


irgBADa 


00040 1 


SSMR a 


1 bf)i100 




020123 


SWjk) 






TYPE a 


X itf ■* W V V 


IFSBLAa 


0001 70 


glAGLEa 


17 777/ 


READIO 


007024 


SW|| 


m 


004000 


TYPES 


00? 110 


IMCASa 


000 150 


SFACiNUs 


05^040 


REAUKB 


003463 


SW12 


s 


010000 


T0 


010366 


gFIDECa 


00022^1 


ITEMP a 


^^0300 


Reaos 


007124 


Swl3 


a 


020000 


T00BLK 


010352 


tMUO > 


000340 


STN 8 


kJ(l0001 


R£AO)f » 


000200 


SW14 


m 


040000 


T0I 


01 0200 


tFSFALa 


000405 


8TSK0 a 


050V434 


REPORT 


005436 


SW15 


8 




T01BLK 


01 0722 


IFlGOna 


000400 


8TSK1 a 


050037 


RESIRT 


001372 


SW2 


B 


W W vie? W " 


T02WI1K 


01 3 1 76 


$FSIF a 


000 110 


gTSKx^a 


0Sk}02 3 


REiVECs 


000010 


SW3 


a 




T03BLK 


0t 4342 


gFSlNCa 


0002 1 


trSi< 1 18 


050024 


RPC s 


000010 


SM4 


m 




T04BLK 


015246 


irgLOOa 


000200 


$TSK2 a 


050024 


RUB 


010364 
I000006 


Sws 


m 




T05BLK 


1 60 1 4 


IFSNAM8 


000 1 60 


8TSK| a 


050023 


Rfi m{ 


Swg 


m 


and 1 MDi 


Ti 


10742 


|r$NO 8 


00040 1 


$TSK4 a 


050025 


R7 8%000007 


SW7 


a 


000200 


TITEMP 


010736 


snoR 8 


000320 


8TSK5 a 


05k}022 


Save 


016150 


Sw8 


8 


000400 


Til 


010460 


IfIRTn" 


000300 


8TSK6 » 


050017 


aCODE 


020421 


5W9 


a 


001000 


T12 


010SS4 


8r$SEL8 


000140 


STSK7 a 


050021 


SEC 


010434 


Si 




0201 1 7 


Tl3 


010566 


Sr$THE8 


0003J0 


SSARGCa 


00000(4 


SECHO 


006654 


TAB 




015316 


T16 


010634 


tFSTKUa 


000404 


$$ByTEa 


000402 


SEL s 


000200 


TAbOA 




010146 


T2 


013326 


ir gUNTa 


0001 30 


SSCASEa 


0M0000 


SEIiERR 


00S100 


TABEND 


016770 


T2BUF 


013220 


tFgWHIa 


00012(^ 


$$UST a 


t!)W)K)000 


SEQ 8 


000100 


lABLl 




011176 


T2CNT1 


013212 


gFSYESs 


000402 


SSELOCs 


000402 


SETZO 


005b<^(^ 


TABL4 




0I5270 


T2CNT2 


0I32I3 


|HD 8 


000003 


SSEHFLa 


0li10000 


SI « 


000017 


TABS 




016036 


T2sAV1 


013210 


tiFLEV" 


177777 


8SFLAG8 


0*^0001 


So ^ 


000016 


TBiTVg 


;» 


00001 4 


T2TemP 


013214 


t ISk0 at 


000001 


SSf. Hums 


000000 


SOH s 


000001 


IDONE 


8 


020000 


T2I 


01 1546 


SiSKl a 


000001 


$$LOC a 


01 3ii76 


SSMR 


000176 


TEMP 




016100 


T22 


011726 


|lSK10a 


000001 


8 SLUG 'Ma 


000*^00 


STACK 8 


001 100 


Tempf 




005002 


T220 


013144 


•iSKlla 


000001 


88RLG a 


177777 


STACK2 


020434 


TEHPT 




005004 


T23 


012140 


$ISK2 8 


000001 


88KETUa 


000V>00 


STACK! 


020S74 


TESTAD 


016156 


T23A 


012206 


gISKj a 


000001 


88RTN18 


050(400 


STAHT 


001102 


TESTNO 


0013i>6 


T24 


012530 


IISK4 a 


0000tDl 


8$i<rN2a 


k)50fr)0l 


STARTS 


001172 


TEST0 




010164 


T25 


012636 


$XSK5 a 


000001 


S8£>NC s 


000V100 


STARTS 


001230 


lESTl 




010444 


T25A 


012734 


IISK6 8 


000001 


68TGSVa 


0H0000 


STKLMT8 


177774 


TEST2 




011526 


T26 


013034 


«ISK7 a 


000001 


8STGS1S 


11^1(^0000 


STRAP 


007510 


TE5T3 




013700 


T3 


014376 


SL0CTA8 


177777 


S8TGS2B 


0k*0K>0fr' 


STX s 


000002 


rEST4 




014652 


T35AV 


014354 


gbSTCNs 


177777 


8 8 ro 8 


00KJ000 


SUTEST 


00205b 


TESTS 




0I5354 


T3SAV1 


014356 


SLSTlNs 


000000 


SSSTAGb 


05000M 




020215 


Timer 




007562 


T3SAV2 


014360 


SLSTSTs 


177777 


1 B 


020672 


SWCTL 8 


000020 


TKB 


s 


177562 


T4 


01532(9 


ILSTIAa 


000000 






SALINE 


000174 


TK5 


s 


177560 


T4SAV 


015260 


tNESTLa 


177777 







, ABS, 020672 000 



CZLAFA0 LA36 term TST MACYll 30A(1052) 03«JAN»77 00101 PAGE 4-2 

CZLAFA9PII 03«JANo7B 11120 SYMBOL TABLE SEW Mk/Vi 

ERRORS DETECTEDI 

CZLArA,CZLAFA,L5T8SYSMAC,SML/ML,SPMAC,5Ml./ML,CZLAFA,Pll 
RUNeTIMEl 120 101 .6 SECONDS 
RUN»TIME PATIOl 60633/222»272,2 
CORE USED! 19K (37 PAGES) 



